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BASIC Construction 

Building Programs Should Be FUN, Not Work! 



Issue 06 
$2.95 



Main Menu and Sub Menu Drivers 
Deciphering What You GET 
Subroutine Eliminators 
Disk Catalog Retrieval 



Disk Status Interrogation 
Updating Your Programs Neatly 
Put Those Function Keys To Work! 
Plus: Commodore 64 Meets Bach 




57913 70974 



Deyeloping a mind 
for the Future. 



RECREATE 



BASIC AID 



:^4^i^ 




COLOR 80 




Color SOsSS.gscDN. 



Produces BO Columns With Coloc' 

N&ed5 No ^alra Hafd^are 

Use Wi&i Terminal Programs 

Uses Na Basn: Memorv iR the S4 

D^veldp Vour Own Programs 



SUPER BASIC s46.9sc™. 

* Gives you 3 di^l^renl versjon^ of Corrimodore 

Basic PT^3orflrT^l^g Lanfluage Version 4 PLUSl 

A BuiM in Machine Language Monilor^ 
- Otsk & F\iB MainlenancB Cortimandfi 

Data Handling Commands 

Graphics Plus Ba^ic 

Cofnpalib^ w^lh Commmodore's "B" Senes & 

Muc^ Much More' 

RECREATE PROGRAM $39 95 

RTC's Answers 1o Program Recreahon 

Con^afla Prmler s Ffle ID SCRIPT 54 "a Files 

SUPER COPY $39.95'^DN- 

Surur Fa&l Dish Copies on a 1 54 1 
Copy Enrira Dish en 7 Umutes or Lflsa 
Copy Selec: led Files 

Complele Pallef n MaTchmg 
Full Prompfs 

BASIC AID $49.95 CDN. 

VouT Aid to WFHing Programs 

Allows ScrDllmg Through Programs 
Adds 33 more Commands Iq the Basic Language 
Mas Find- Change. Merge. Move Commands 
Convert He>L. Binary anrl Decimal Numbers ar^d Morel 



DM. 



SCRIPT 64 & SCRATCH PAD 64s1 29.oo 



Scnpl 64 
Word processor in French and English 

a Q Columns 
Glol:^! Search and Replace 
User Created Dictionary 
Spellmg Check 
Serai ch Pad e 4 
The Database-' Mail List in One 
Merges wiih Scfipr 64 Word Processor 
Print oul Labels. Envelopes. Mail UstS Wore 
Suilabt&i^itTi both SinglBanO Dual Disk Drives 
Fully C64 L-nk Compatible 



C64 LINK 

The Smart 64 

Give These Expanded Capabilities 
to Your 64 and VIC 20 



* Tha ability to transfer dgta from any tvpa of device to anorher 
[IEEE, 5&r^l. Parallel) 

* BASIC 4.0 which allows you TO run more PET BASIC program^ 
and gives you extended disk and l/D commands. 

* The ability To have several 64s on line Together - sharing com- 
mon IEEE devices such as disks or primers with Spooling 
Capablliiy. 

* Builrfnmachfnalanguagefnonitof. 

* A buiIMn lerminel or modem prosram wh^ch allows the aysTem 
to communicele Through a modeni to many bulleTJn boan:! 
sysWrrts and olher computer mainframes. 

* Comparability with CP/M* 

Confact vour local Commodore dealer or RTC, 

Paymnnta by VISA, MASTERCARD or BANK TRANSFER. 
Mail orders also bv car^tled cheque, elCn 





Up 10 S more 64s 



10610 Bayview Avenue (Qayview Plaza) Richmond Hill, Onlario, Canada L4C 3N8 (416] 884-4165 




A 



•\ 



k^ 



>fy^^ 




nUFEKNP 

P.O. Box 156, 21255 Hwy. 
Shady Cove, OR 97539 

1-800-525-2529 



Software for the VIC 20 
and Commodore 64 




• t 



k at these 
Features 



Fully screen -oriented 
Horizontal and vertical scrolling 

Terminal mode - never seen before on a word processor 
Supports Commodore disk and cassette handling 

Imbedded commands 





BLIZTEXT ii a 
trademark of ELCOMP 
PUBLISHING, INC. 

CommodorB-&4 and 
VIC-20 ar« iradomaflts 
of Commodore 

Businau Machinal. 





Dealer and Distributor 
inquiries are invited. 



BLIZTEXT - SUPER WORDPROCESSOR 
for the Commodore- 64 

- ON SALE NOW! - 

• Fully screen -or «ntBd. up/down, left and right 
scrolling - Upper and lower cam 

• More than 70 commands 

• Full I/O compaiibiJity *ith Commodore penpherals 
Upper and lower case 

• Works with practically every primer on the market, 
user definable printer control commarxl* 

■ INCLUDE command allows handling large files 
on up to 4 diskettes or on cassette, 

• Build in terminal software for electronic mail and 
networking. Telecommunications mode, upload and 
download, save on disk or cassette. 

• Dynamic formatting, Imbedded commands 

• Single keystroke for dis*^ directory and error channel 

• Program comes on disk or cassette 

• Double line spacing, left and nghi margin justification. 

centering, page numbering, and practically everything 

one expects from a good wo^d processor . 

AVAILABLE NOWl 
Otdflf#4965 Sfl9.00 

Manual only (G2 pa^Bi) £29.95 

MACROFIRE - 

Editor/Assembler for the Commodore-64 

ON SALE NOW 
AVAILABLE IMMEDIATELY 
One outstanding tool, consisting of 3 powerful elements 
combined into one efficient program I 

1,^ Fully screen -oriented Editor (more than 70 

commands} 
7.) Very fast assembler with macro capablKty 
3.) Machine Language Momtor 
Assembly can be started from the editor. Transiates m 
3 passes. More than 1 ,000 tables, screen oriented/no line 
numbers, scrolling, includes disk files. 
Practically everything the serious machine language 
programmer needs everydayl 

Manual only S19.95 

Order #4963 £89,00 



THE GREAT BOOK OF GAMES, VOL.1, 

by Frani Ende 

46 programs for the Commodore 64 

Introduction to graphics and sound. How to program 

your own flames. Walking pictures, animation, high 

resolution graphics, programming lips and tricks, hints 

and useful subroutines for the beginner and advanced 

programmer. This book is 8 MUST for every C-64 ownef. 

Corrw and get it - It's yours for only S 9.95 

Order # 182 12B pages £9-95 

Program* from the book on disk. 

Order #49aa S19.95 

MORE ON THE SIXTYFOUR, by H.C. Wagner 
How to get the most out of your powerful Commodore 
64. Very important subroutines, trick* and hints in 
machine language for your C-64. How to modify DOS- 
How to connect a parallel and serial printer. How lo 
design your own terminal program for communication 
and networking. Dig into I/O for cassette and diik. 
Ordef #183 S9.95 

Programs from the book on d»k 

Order #4999 $19.95 

NEW PRODUCTS 
Watch out for our new books, software end add-ons to 
come »on. ON SALE NOWl - ORDER TODAYl 

How to prooram in 6502 Machine Language on 
your C-64 .by S. Roberts (Introduction) 
Order'#184 S12.95 

Commodore-GATuna-up, VqL I, by S. Roberts 

How to expand and customize your C'64. 

Ordar#lBB "1255 

Small Business Programs for the Commodore-64 

by S. Roberts 

How to make money using your C-64. Mailing list, 

invoice writing, inventory, simple word processing and 

much more. 

Order # 186 S12 9S 



Hardware Add-Ons: 

Parallel printer interface KIT Order #4990 £ 19.96 

Direct Connect Modem KIT Order #4991 Ajkljirk* 
Universal EKperimenter Board Order #4970 S 9,95 
Eji pans ion Board, space for four ex- 
perimenter boards(board only| Order#499Z £ 29.95 

For your VIC-20 
Tricks for VICs S 9.95 
Universal Experirnenter board 





PAYMENT: check, money ordef, VISA, MASTER 
CARD, Eurochack, ACCESS, Interbank 
Prepaid orders add £3.50 for shipping lUSAI 
£5.00 handling for C.O.D. 

All orders outiide USA; add 15 % shipping. Califor- 
nia residents add 6,5 % sales tax. 
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Telex: 29 81 91 
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Program Listings In The Transactor 

All prograins liste<i in The Transactor will appear as They would on your screen in Upper/Lower case 
mode, to clarify two polenfiat charader mix-ups. zeroes ^^■lll appear as 0' and the letter "o" will of course 
be in low^r case. Secondly, the lower case L ( T) hab a flat top as opposed to the number 1 which has an 
angled top. 

Many programs will contain reverse video characters that represent cursor movements, colours, or 
function keys. These will also be shown exactly as they would appear on your screen, but they're listed 
here for reference, 

Occasionallv programs will contain lines that show consecutive spaces. Often the number of spaces you 
insert will not be critical To correct operation of the program. When it is, the required number of spaces 
will be shown. For example: 



print 



flush right " - would he shown as - print " [space 10|flush right' 
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Cursor Characters For PET / CBM / VIC / 64 



Down - Q 




Insert 


^B 


Up -■ 




Delete 


n 


Right - B 




Clear Sci 


rn - B 


Left - Ut| 




Home 


-D 


RV5 - B 




STOP 


'D 


RVSOff- fl 








Colour 


Characters For VTC / fi4 

Orange 




Black - Q 


D 


While - B 




Brown 


D 


Red - Q 




Lt, Red 


-D 


Cyan - iCyn 




Grey 1 


-a 


Purple - Pur] 




Grey 2 


Green - B 




Lt. Green 


D 


Blue - ■ 




Lt. Blue 


-D 


Yellow- [Yel 




Grey 3 


- Gr3 


Func 


:tion Keys 


For VIC / 64 

F5- 




Fl - D 


Q 


F2- D 




F6- 


□ 


F3- D 




F7- 


O 


F4- F! 




F8- 


n 
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Printed in Canada by 
MacLean Hutiter Printing 

The Transactor is published quarterly by Transactor Publishing Inc. It is in 
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As 1984 begins, Volume 4 of The Transactor ends with our 
sixth issue as an independent magazine. It will be time to 
renewfor many subscribers -mostly those who have stayed 
with us since our print run was barely over 1000. 1 would 
like to extend thanks to all our subscribers - your loyalty 
and patience is surpassed only by our talent for publishing 
late. 



With that thought in mind, Tm going to subject you to some 
shock treatment. Are you sitting down? Good. This issue 
marks the first one released on schedule. For now we'll be 
printing once every two months, paying close attention to 
deadlines- Our advertising, production and circulation de- 
partments have all responded to organization therapy. One 
of the most effective treatments has been our decision to 
publish "theme'' issues. Page 63 has a list of projected 
topics. Advertisers can now coordinate ad copy with mag 
contents. And writers who want to submit material will find 
them useful as a guideline. Don't restrict yourself, however. 
Any topic given reasonably complete coverage will un- 
doubtedly be accepted- 

This issue also marks our largest print run ever - 20,000! 
Throughour U.S. distributor, The Transactor will be appear- 
ing in over 750 B. Daiton book stores and also the Little 
Professor chain. Unfortunately this means our ad rates are 
going up too. Our current rates were designed for a circula- 
tion of 5000. Much as we regret price increases, it almost 
costs us money to accept an ad. Without the increase (our 
first by the way) there won^t be a staff to make the increases. 

With that out of the way, Td like to address the subject of 
product reviews. Traditionally we haven't published re- 
views for several reasons. First, a review, favourable or 
otherwise, doesn't always represent a product accurately. 
Harsh criticism can ruin a product that might have been 
quite valuable to many. And on the other hand, a product 
that can ''do no wrong" might turn out to be an Etzel. 

On a more suspicious level, isn't it possible that the reviewer 
could have an axe to grind? When a review shows up in the 
mail that makes an item sound like a disease, 1 can't help 
thinking there might be two sides to the story. And the 
glittering, shining report might be just the neighbors' way of 
helping out with sales. 

Magazine integrity is affected too. Advertisers have been 
known to withdraw from a publication after it prints an 
unfavorable critique. However, publishing nothing but good 
reviews falls somewhat short of responsible journalism. 



All these factors add up to an extremely sensitive issue. But 
with an aftermarket that's so active. I feel we should be 
doing something to keep you informed. So after much 
consideration, we've come up with some positive compro- 
mises. 

Products that are similar with a very distinct set of competi- 
tors will be pitted head to head in ''comparison reviews". 
Comparable products will be chosen or qualified by us on 
the basis of purpose, necessary equipment, price range, 
etcetera, and no less than three items of the same nature will 
appear in each comparison. Supplementing each review 
will be a unique features section. For example, we all know 
that word processors do search & replace, but what does one 
do that the others don't? This will not only make the buyer 
informed, but also the vendor. After all, products improve 
only when the designer knows why the competition is 
better. 

Naturally, not every product can be categorized like 
wordprocessors and spreadsheet calculators. Things like 
non-instructional books, certain games, and specialized ac- 
cessories will be accepted for review and every one worthy 
of publication WILL be published. Since we'll be supplying 
the products to selected writers, we can be reasonably sure 
of an objective opinion. Bui to be fair, well send a copy to 
the manufacturer and/or distributor to allow for a response. 
We'll do the same with the comparisons to catch inaccura- 
cies. 

This may not be the answer but my technical half has 
convinced me to experiment. The approach may seem 
complicated, but the element of control will make this 
transition a comfortable one. Other details are still under 
advisement. Such as what happens to the items we Ve 
supplied once the review is complete. Vendors probably 
won't mind supplying complimentary copies of software, 
but would understandably be reluctant to give away expen- 
sive hardware. Perhaps someone experienced with this 
situation could offer some suggestion. 

There's nothing as constant as change. . , until next issue, 1 
remain, 




KarlJ.H. Hildon 

Managing Editor, The Transactor 
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Events / General 

Annual May TPUG Conference 

The third annual TPUG Conference is set to go for Saturday 
& Sunday. May 26/27 *84 at the Constellation HoteL The 
iwo days will be packed with activity, including: speakers 
with presentations on a variety of topics from beginner to 
advanced (schedule next issue); availability of entire c!ub 
software library; dealer displays; a traders' corner; an "an- 
swer room", and lots more. 

The Constellation is right at the airport, 900 Dixon Road, 
Toronto. Lots of free parking; separate lobby for conference 
participants; and a special club banquet Saturday night will 
make this years conference the most professional yet. 

You must be a TPUG member to register. Memberships are 
still $30 regular, $20 associate (out-of-towners). Pre-reg for 
the conference costs $20 and begins Feb 1. Spouses and 
children are $10 per person. Late registration, after April 15 
or at the door is $25. Special hotel rates are being offered to 
registrants: $65 per night double occupancy for one night, 
$55 per night for 2 nights. 

For more info contact the club at 416 782 9252. 



NECC 6th Annual Educational Conference 

The National Educational Computing Conference provides a 
broad and rich forum for discussion among individuals at all 
levels and from all institutions with interests in educational 
computing. It offers a unique opportunity for the cross-pol- 
lination of ideas and experiences which should result in a 
new higher quality of educational computing. Building on 
the success of the five previous conferences, the planned 
sessions and related activities of NECC '84 will benefit both 
experienced and new computer users and will stress the 
practical nature of computer use. The end product should be 
better instruction in the classroom. 

With the cooperation of 13 scientific and professional orga- 
nizations interested in educational computing, NECC '84 
has the following major objectives: (1) to present in one 
forum major work regarding computers in instruction; (2) lo 
promote interaction among individuals at all levels in the 
various aspects of computer uses in education; (3} to de- 
velop and coordinate the various professional groups in- 
volved with computer uses in instruction; and (4) to produce 
a proceedings documenting the status of computers in 
education. 

The conference will be held at The University of Dayton, 
Dayton, Ohio, from June 13 to 15. In addition to seminars 
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and workshops, family activities and tours are offered. The 
conference committee is also offering travel subsidy for 
those who qualify. For more, contact: 

Lav^-rence A. Jehn 
Computer Science Department 
University of Dayton 
Dayton, Ohio 45469 
513 229 3831 



VDTs No Health Danger: Report 

There is no reason for any person, male or female, young or 
old, pregnant or not. to be concerned about radiafion health 
effects from video-display terminals (VDTs), according to a 
reporf released by Health Minister Monique Begin recently, 

VDTs linked to computers are widely used in many busi- 
nesses, including editorial departments of newspapers and 
airline ticket offices. 

The report says, "radiation emissions from VDTs are either 
non-existant or are so low that no standard in the world 
would classify these emissions as hazardous/' The report 
was based on tests the department conducted on 227 VDTs 
representing 122 different models. 

None of the tests dealt with other health problems associ- 
ated with VDTs, such as cataracts, eye strain, or neck, back 
and shoulder pain. 

The tests found there were no microwaves, no X-ray emis- 
sions and either no or miniscule amounts of ultraviolet and 
infrared emissions. It did find some low-frequency radiation 
- the kind associated with radio transmissions - very close 
to the surface of some VDTs. 



with the growth of the home computer market, it behooves 
boards of education and their administrators to respond 
vigorously to the challenge of helping families make in- 
formed decisions with respect to the proper use of educa- 
tional software that can effectively supplement the academic 
goals of their local school systems/' 

''Micro-Ed s proposed software grant is designed to encour- 
age the development of an orderly and comprehensive 
program for dealing with this problem. In part, it envisions 
the establishment of a free lending library of educational 
software for families. Important guidance components re- 
lated to the regular school curriculum would need to be 
established as well/' 

Inquiries concerning specific qualifying standards for this 
grant should be directed to: 

Thorwald Esbensen. President 
Micro- Ed Inc. 
PO Box 24156 
Minneapolis, Minnesota 
55424 I 800 MICRO ED 



Publications 



New TPUG Magazine 



TPUG club members will be receiving a new magazine 
starting in February '84. Titled "TPUG Magazine", it is now 
the official club publication. The TORPET will continue to 
publish, but is now an independent magazine. 



Education Software Donated by Micro-Ed 



Computer Publications Directory 

Data Courier of Louisville, Kentucky, has published a direc- 
tory of magazines and newsletters that service the computer 
and software industries. 



Micro-Ed Inc., a Minneapolis based publisher of educa- 
tional software, will donate up to ten-thousand dollars 
worth to any elementary school library system that can meet 
certain standards for strengthening home/school coopera- 
tion in the area of computer-assisted instruction. 

Micro-Ed's President, Thorwald Esbensen, had this to say 

about his company's proposed grant: "Based on my thirty- 
-seven years of experience as a teacher and school adminis- 
trator, one of the persistent problems for educators and 
parents has been the development of effective communica- 
tion channels between home and school. Confronted now 



The 600 page book, ''ABI/Selects": The Annotated Bibliog- 
raphy of Computer Periodicals is designed for anyone inter- 
ested in industry publications. This reference describes 533 
publications about personal computing, systems and soft- 
ware, data processing, office automation, trade and applica- 
tion and data communications and teletext. 

Each entry includes: publication name, content description, 
cost, publisher and address, average number of pages, 
audience, advertising, as well as other information. It also 
contains a publisher index and a title index with cross 
reference to locate publications with title changes. 
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ABi/Selects is $50 U.S. (inch P&H) Visa & MasterCard 
accepted. Order direct from: 

Data Courier Inc 
620 S. Fifth Street 
Louisville, KY 40202 
800 626 2823 or 502 582 41 11 



495 Wellington Street West 
Toronto, Ontario M5V 1E9 
416 593 9911 



The Computer Newsletter 

Rapidly expanding microcomputer hardware and software 
industries havti created a steadily increasing need for infor- 
mation and instruction on the part of the computer users. 
Hundreds of magazines, newsletters and books containing 
thousands of articles are published every month. The few 
general publications provide introductory and background 
information, but most material worthy of special attention is 
printed in special purpose magazines designed to satisfy the 
needs of finite segments of the computer market. 

Because of the vast amount of material, serious microcom- 
puter users are finding that locating up-to-date information 
is not easv^ To this end, The Computer Newsletter was 
conceived to provide a guide to articles. It is published 10 
times per year in six different editions. There's one for 
Apple, Radio Shack TRS-80, RS Colour Computer, all Com- 
modore computers, a combined edition for Atari, TI-99 and 
Timex/Sinclair, and a combined edition for IBM and com- 
patible models- 

A subscription costs $17.50 U.S. per year {10 issues) or ask 
for it at your local computer retailer. Be sure to include the 
name and model of your computer when subscribing. 

MHN Services Inc. 
DeptF4,POBox952 
Cleveland, Ohio 
44120 



Multilingual Dictionary 
of Computer Terminology 

This 1 000 page, hard cover dictionary has been compiled as 
a source of terms used in a field marked by phenomenal 
worldwide growth and expansion. 1 1 ,000 computer science 
terms and expressions are covered in five languages - 
English, French. Italian, Spanish, and Portuguese. 

The book costs $98.95, ISBN^ 0-8442-9108-0. 

Copp Clark Pitman Ltd. 



What's For The 64 

Richard V. Mucci has released this 125 page guide to 
products for use with the Commodore 64 exclusively. It is 
not a mail order company catalog. 

Categories include Programs, Peripherals, Interfaces. Book 
Titles. Magazines, and User Groups catering to the 64, Also 
contains a directory of Commodore 64 support sources plus 
a magazine article bibliography for Commodore 64 material. 



Send name and address with $15 U.S, 
sales tax for Florida residents) to: 

What's For The 64 
3494 Chickasaw Circle 
Lake Worth, FL 33463 



$2 P&H ( + 5% 



Commodore News 

Gortek and The Microchips 

Commodore has just released a new teaching package for 
the 64. It's called ^'Gortek and The Microchips'^ - an exciting 
space adventure that teaches BASIC programming. 

The planet Syntax is being invaded by Zitrons. and Gortek 
must work furiously to teach the Microchips how to program 
the great computer and ward off attacks. The full colour 
storybook of this adventure incorporates the Microchip 
Training Manual that teaches children the fundamentals of 
programming in BASIC. 

The package includes two cassettes with educational games 
and other programs. Also, throughout the manual there are 
programs to be typed into the computer by the ''trainee''. At 
the end of the story, the great computer "Creativity" is saved 
by the programming the child and the Microchips have 
learned from Gortek. Available from all Commodore deal- 
ers. 



Vanilla Pilot 

Vanilla Pilot is a simple easy-to-learn programming lan- 
guage released by Commodore for the 64. The commands 
have meaningful names that are easy to remember making 
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it an ideal language for students or hobbyists to learn. 

Originally. Pilot was developed for teachers to write pro- 
grams for their students. It supports Turtle Graphics, has 
colour control commands, and also sound and joystick 
commands. The package comes with an extensive program- 
ming manual and is available now from Commodore deal- 
ers 



"Commodore is extremely pleased to be involved with 
Kellogg's in this promotion/' said James Copland, Cfimmo- 
dore Canada's General Sales Manager. ^1t^s educational and 
it's fun which is exactly the spirit of Commodore products," 



New Public Domain Educational Software 



New Plant Scheduled 

Commodore has announced that construction will begin on 
anew 125.000squarefoot plant and office building on Bayly 
Road in Pickering, Ontario. 



Commodore has announced Version 2 of its public domain 
educational software. The new package contains 835 free 
programs, 258 of which are new. 

"During the summer of 1983, a number of Ontario school 
boards and Commodore programmers created Version 2 of 
the Public Domain Educational Software," said Franke Win- 
ter. Manager of Commodore's educational department. 
"This involved analyzing, correcting and updating our pre- 
vious release and adding new programs," he added. 



n 4040 disk drive format there are 58 diskettes in two 
volumes. In 8050 format there are 27 disks. Both come with 
a catalogue containing titles and short descriptions. 



Being in the public domain, the programs are tree with a 
charge only for the cost to copy them. Information of pricing 
and availability are at your Commodore dealer. 



'The plant is expected to be in operation in the spring of 
1984, weather permitting," said James Copland. "It will 
employ 200 people and will produce the popular ViC 20 and 
Commodore 64 personal computers." 



World of Commodore Show a Smash Hit 

One of the most successful shows of any kind at Toronto's 
International Center was The World of Commodore Show, It 
had the highest single day attendance of any show in the 
centers history. See our two pa^e spread on the show 
following News BRK, 



Software News 



Easy Spell for Easy Script 



Win VIC 20s from Kellogg's 

Kellogg Salada Canada Ltd. has combined computers and 
education in an in-package cereal promotion in which 
consumers can win a ViC 20 in three ways. 

Playing cards have been enclosed in approximately 4 mil- 
lion boxes of Sugar Frosted Flakes, Apple Jacks, and Sugar 
Pops, The first part of the card is a "Scratch 'n* Win" for one 
of 50 VIC 20 Edupacks, 1250 tote bags and 1250 binders. 
The second part is a ''ColIecf-a-Win". Collect the letter and 
numbers to spell "ViC 20'^ and win one of 150 VIC 20s. The 
last section of the card can be filled out and sent to Kellogg's 
for a draw to win one of 10 Edupaks. 



The contest is not all left to chance. Part of the card is a ski 
test in math and Canadian oriented social science. The 
questions have varying degrees of difficulty - players 
scratch out the answer they beiieve correct to reveal a true 
or false. 



Easy Spell is a spelling checker designed specifically for 
users of Easy Script on the Commodore 64. The master 
dictionary can be expanded to 20,000 words. On completing 
a spelling check, the file is automatically resaved. Easy Spell 
will also generate a word frequency report and has pattern 
match search capabilities. 

The package comes with a User Guide, two system diskettes 
and a standard dictionary disk- Available from all Commo- 
dore dealers 



GraphEase Computer Graphics System 

GraphEase, a new computer graphics system developed by 
Lirnicon Inc, oi Toronto for use on any Commodore with 
32K, is a reasonably priced, very powerful package which is 
fully compatible with NAPLPS, the international computer 
graphics standard of the telecommunications computer and 
telephone industries. 
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GraphEase features: 32,000 user controllable colours; 
256x256, 512x512 resolution and higher; and ! /1 second 
animation speed, GraphEase includes software on disk, a 
GraphEase rt^placement ROM. an RS232 interface with null 
modem, a NAPLPS (North American Presentation Level 
Protocol System) or "felidon decoder with D2 ROMs, and a 
complete user manual. The system will operate with normal 
or RGB monitors, 

Telecalc !l, anotfier Limicon software product, automatically 
transforms Visicalc print files into GraphEase graphics, and 
has additional editing capabilities. Available for Commo- 
dore 4032 and 8032. Contact: 



Limicon Inc. 
144 Hampton Avenue 
Toronto, Ontario 
M4K2Z2 416 465 4058 



Computerized Lesson Authoring 

Touch Technologies Inc. announces the release of an easy to 
use educational courseware authoring system: CLAS - Com- 
puleri;;ed Lesson Authoring System - enables educators and 
parents alike to produce ''courseware" without any com- 
puter [irogramming experience, 

CLAS is not just a test writer It can be used to design lessons 
in anything from basic math and spelling, to physics and 
technical writing, at any level from elementary to college 
graduate. 

Options include multiple choice, ftll-in-the-blanks, and 
true or false questions, and the material can presented in 
random or prescribed order. 

This version of CLAS doef^ not include branching, record 
keepi[ig, or other advanced CAI features. Instead it offers the 
teacher a straight forward way to develop lessons. A 20 
minute lesson can be created quickly by anyone familiar 
with the simple Users Guide. The package includes the 
manual with an Author disk and Student disk. Price: $89.95 
U.S. Contact: 

Tom Piszkin 

Touch Technologies 

609 South Escondido Blvd., Suite 101 

EscondidcCA 92025 

619 743 0494 or 1 800 525 CLAS 



Codewriler from Dynalech 

Codewriter, a new program from Dynatech Microsoftware 
Inc., allows users to design application software without any 
knowledge of computer language or programming. 

Programs are designed simply by completing the screen 
layout form and entering the calculations onto the com- 
puter's screen in plain English, Codewriter translates that 
plain English into computer code and creates your own 
program that is specifically designed to your individual 
needs. Once produced, Codewriter is put aside and the new 
application program is used. 

Codewriler will produce payables and receivables, sales 
analysis, customer and personnel files, mailing lists, invoic- 
ing, inventory, print reports, form letters and many other 
business and personal uses. 

Codewriler for the Commodore 64 is $149.95 including 
manual. Contact your local dealer or: 

Micro Marketing Canada 
169 Inglewood Drive 
Toronto, Ontario 
416 484 7773 
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School Administration Software 

Melcher Software has a number of programs for the PET, 
C64, and VIC 20 of interest to educators. Heading the list is 
Compugrade - a complete grading program. Compugrade 
will list (screen or printer) student names, averages, and 
letter grades (including -+- and - prefix) according to tiie 
scale provided by the teacher. Listings can be in alphabeti- 
cal or rank order. 



designed by experienced lax accountants for a line-by-line 
preparation of the !RS FORM 1040 and related schedules. 
Comes on disk or tape with a step-by-step manual, 

TaxAid 1 for the unexpanded ViC is 24.95. TaxAld il is for 
VIC 20s with at least 16K expansion - $29.95. TaxAid IK is 
for the Commodore 64 and costs $29.95. Prices are in U.S. 
dollars, subtract $5 for tape version of each package. Future 
updates will be released for nominal cost. 



The Attendance Master can store complete attendance infor- 
mation for an entire semester. There is no limit to the 
number of classes. Alphabetized class lists, complete attend- 
ance records, number of absences, or tardies per student 
can be displayed to screen or printer. 



Northland Accounting Inc. 
Software Department 
606 Second Avenue 
Two Harbors. MN 
55616 2188345012 



Drill programs, clever games, statistics series, business, 
administration, English, science, and mathematics pro- 
grams are also available. Contact: 

Melcher Software 
PO Box 213 
Midland, Michigan 
48640 



Canadian Payroll Software 

Robert N. L'Rsperance and Associates Inc. has introduced 
the first of many applications compatible with Commodore 
equipment. The Canada Payroll system was specifically 
designed for use in Canada. 

Tfie system is bilingual, English and French, It will support 
as many as 152 employees, calculate wages hourly, weekly 
or bi-weekly, automatically print numbered cheques and 
update payroll records, and performs F.I.T.. P.I.T.. UlC and 
CPP calculations. It also offer password protection and space 
for an additional 5 revenues and 4 deductions to payroll 
records. The package is also supported by yearly tax tables 
and T4 output software at a nominal extra fee. Contact; 

Robert N. L'Esperance and Associates 
9780 Hamel 
Montreal, Quebec 
H2C2W7 514 388 6962 



The Tax Advantage for C64 

Continental Software has released their 1983 tax season 
version of ^The Tax Advantage", a tax planning and assist- 
ance program for US IRS form 1040 and related tax sched- 
ules. 

The Tax Advantage is one program you can run tfie first 
time without documentation. The program simulates the 
1040 form of the computer screen and, on request, offers 
plain English descriptions of each item of the return. 

The Commodore 64 version is $69.95 U.S. and is available 
at Commodore dealers and software outlets. 

Continental Software 
Product Information 
11223 S.Hindry Avenue 
Los Angeles, CA 
90045 2134103977 

Also from Continental: "The Home Accountant", world's 
best selling home and business financial management pro- 
gram (to be reviewed in The Transactor shortly); 'T.C.M.", a 
filing, cataloging and mailing program; and "Property Man- 
agement", a financial management program for owners and 
managers of residential, commercial, and industrial proper- 
ties- 



TaxAid For C64 and VIC 20 

TaxAid is an icome lax calculation program designed for 
home use and American tax returns for 1983. Jl comes in 
three versions. 2 for the VIC 20 and 1 for the C64. It was 



Instant Productivity Software for C64 

The INSTA series of productivity software for the Commo- 
dore 64 personal computer is now available from Cimarron, 
a division of Microsci Corporation. The nine packages in the 
series are designed for immediate application with no 
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lengthy study and training period. 

INSTA-Writer is a cartridge based wordprocessor featuring 
"instant-on" operation with a simplified a[>proach to docu- 
ment generation. INSTA-Mail, a mailing list program fully 
compatible with [NSTA-Writer, features merge, sorting and 
versatile label printing capabilities. 

INSTA-Calc is a low cost spreadsheet program. iNSTA-Ves- 
lor is a stock management program with buy and sell 
tracking, earnings and price averaging reports. Both can be 
interfaced with INSTA-Graph for plotting bar or line charts. 

INSTA-File is the data base management package and is 
fully compatible with other INSTA programs. 

Other misc: INSTA-Sched allows the user to manage daily 
appointments via a monthly calendar system. INSTA-Music 
helps write, store, and play music via the 64's built-in 
synthesizer chip. INSTA-Speed is a BASIC compiler that can 
increase prograni speed by 55 limes and reduce size by 20 to 
50%. 

Package prices range from $19.95 to $99.95 U,S. 

Microsci Corporation 
2158 S. Hathaway Street 
Santa Ana, CA 
92705 714 662 2801 



MidWest Micro Inc. 
311 W. 72nd Street 
Kansas City, MO. 
64114 816 333 7200 



Hardware News 

Fire Command for C64 and VIC 20 

Fire Command uses the finest controls like those found on 
real arcade game machines. An 8 way joystick is comple- 
mented by two durable fire buttons for left or right handed 
operation. Dimensions are 6 " deep, 1 ! " wide, and 5 " high 
with a six foot cord for ample breathing space. 

It comes in an unbreakable 5 pound die cast metal housing 
(no plastic) for the fee! and stability of a real arcade machine- 
Moulded rubber feet allow no slip on smooth surfaces. The 
six foot cord is just right for breathing space. 

[IVe used Fire Command and it's by far the best one Ive 
tried yet. The five pound base gives you that ^'planted down" 
feeling that's just unmatched by those light weight or hand 
held models. And the controls are (just like they say) the 
same as on real arcade machines. Fire Command will take a 
beating too! Ed.] 

For more information contact your dealer or: 



SuperTerm for VIC 20 and C64 

SuperTerm, an intelligent terminal program, has been cre- 
ated by Midwest Micro Inc. It allows C64 and VIC 20 owners 
to upload and download to a wide range of computers 
including university mainframes, hobby bulletin boards, 
and CompuServe. 

Features include: a text editor that can manipulate up to 
18. 4K of data with control approaching that of many 
wordprocessors; text display in 40, 80. or 1 32 columns with 
side-scrolling; transfer to and from disk; auto answer/aulo 
dial using automodems from Commodore, HES or Micro- 
peripheral Corp; Xon/Xoff characters for transmission inter- 
rupt; 52 user-definable function keys; 26 display functions; 
and baud rate, parity, word size, stop bits and other com- 
munications parameters. 

SuperTerm comes with a hardware module that plugs into 
the cartridge port, plus extensive documentation. Price: 
$149,95 U.S. 



Access Computer Services 
630B Magnetic Drive 
Downsview, Ontario 
M3J2C4 416 736 4402 



PET/CBM Joystick Interface 

J Systems announces the immediate availability of the new 
PET Joystick Interface 11. The interface makes the PET/CBM 
compatible with all popular VIC/64/Atari joysticks with 
connections for 2 controls. The unit plugs into the PET 
Parallel User Port and a fast machine language program 
which reads the joystick data is included along with a demo 
program. 

Price: $19.95 U.S. plus $2,00 S&H. Includes circuit card, 
documentation and software. Add 5% for VISA and Master- 
Card orders. 

J Systems Corporation 
1 Edmund Place 
Ann Arbor, Michigan 
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4810.3 3i3 662 4714 



dealer for details. 



Light Pen and Track Pen for C64/VIC 20 

Tech-Sketch Inc. announces two light pens for use with 
Commodore home computers: the LP-] OS is ideal for games 
and educational programs, it's made of rugged high impact 
material, has a tooled tip and cord strain relief bushing, and 
a push barrel switch. Price is $39.95 U.S, 

The LP-15 is a precision light pen designed for applications 
demanding high accuracy. It's super sensitive and can 
control activity from as far as six inches from the screen. The 
all-metal unit houses a miniature low noise amplifier and 
precision optics and also has a push barrel switch. Price: 
$119.95 U.S, 

The TP-50 Track Pen is similar in function to a mouse 
popularized by Apple's Lisa. The pen can be used on any 
surface and actuates commands by simply pressing the pen 
down. No price information. 

Tech-Sketch Inc. 
26 Just Road 
Fairfield, NJ 
07006 201227 7724 



[Koala Pad promises to be one of the most popular accesso- 
ries for the 64, Retailers would be foolish not to carry it. The 
software is superb - a truly fine piece of work. Ed.] 




Koala Pad for the C64 

Koala Pad is a graphics (ablet input interface for the Commo- 
dore 64. The pad allows the user to draw high resolution 
displays on the computer screen without ever glancing at a 
single line of software. Attractive and meaningful colour 
presentations can be produced in minutes, then stored for 
future recall- 

The package comes with the Koala Pad, carbon-less pencil, 
software, and user manuaL Contact your Commodore 



RB Robot Seeks Software Developers 

Micro Marketing Canada, Canadian distributor of the RB5X 
Robot, is looking for Canadian software developers to write 
commercial quality programs for the RB. Selected programs 
will be produced, packaged, and distributed by the RB Robot 
Corporation through its nation-wide retail dealer network. 

Software for the RB will be evaluated for creative use of 
sound, sensing, and movement capabilities, appeal, effec- 
tiveness, error handling, documentation, and ease of use. 

Participants must purchase or otherwise independently ob- 
tain an RB5X and the appropriate hardware options to 
develop their programs. They may purchase robots at a 
special price directly from Micro Marketing Canada; if their 
programs are accepted for distribution, developers will re- 
ceive a 25% rebate on their hardware purchase. For more 
information: 

Micro Marketing Canada 
169 Inglewood Drive 
Toronto, Ontario 

RB Robot To Robot Communications 

The RB Robot Corporation, in cooperation with the Center 
for Science and Industry (COSl) in Columbus, Ohio, and the 
Museum of Natural History in Denver, Colorado, an- 
nounced the first transcontinental phone conversation and 
interaction between two robots, initiated by the robots 
themselves. 

The event featured two RB5X personal robots. The RB in 
Columbus initiated the call that was answered by the other 
in Denver. They conversed, and one instructed the other to 
perform a simple task. The task was completed and the 
second robot reported back to the first. 

RB President Joe Bosworth said, 'This event represents a 
step as dramatic for the field of home robots as Alexander 
Graham Bell's first demonstration of transcontinental tele- 
phone. Using communications technology, the ability for 
the robot to summon help in emergencies will be of the most 
useful features in the home.'' 
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The First Annual World Of Commodore Show 



This show had to be the computer "event of the year . 
Boastfngalong hst of highlights, it was Canada's answer 
to "The PET Show" in England. Commodore will tell you 
they held it to celebrate their 25th anniversary. Either 
way, the show was a smash success, and Commodore 
already has a list of improvements planned for next 
year's occasion. 

The most impressive point had to be the attendance 
figures - 38,000 total with 12,000 of those on the final 
day, the largest single day attendance of any show in the 
history of the International Center. 

Any company needs quite some following to sponsor a 
show as specialized as this. Needless to say, every 



exhibitor was somehow related to Commodore. The 
concentration was a perfect atmosphere for business 
and pleasure. The Canadian Computer Show, held a 
month earlier at the same location, was dull by compari- 
son. Too many product lines representing a cross sec- 
tion of the entire computer industry means a lot of 
walking in a place that size. The first World of Commo- 
dore show could easily be the start of a new trend in 
computer exhibitions. 

Originally, there were to be several more exhibitors than 
actually showed up. Probably due to a lack of reputation 
as computer shows go. Undoubtedly those vendors 
won't be making the same mistake next year. 




Donna Green, Dave Betezowskt, Paul SID' Higg»nbollom, Karl Hildon Joe Ferran and Jim Butterfield 
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Bits and Pieces 



Incrementation 

Our screen dazzler this issue is '*Increnientation'\ a concept 
originally from our new Editor. Richard Evers. Since the 
original version there have been several mods - portability, 
set-up procedures -and credit for them inline 10. Frankly, 
the program itself is virtually useless, but aren't all screen 
dazzlers? Perhaps someone looking for an eyecafcher can 
let us know how well it works. 

Moreover, the program demonstrates once again the phe- 
nomenal speed of machine language. To start, a pattern of 
incrementing ASCII values is POKEd into screen memory. 
Hit *S' and the machine code takes over. Quite simply, the 
code increments the contents of every byte in screen mem- 
ory by I, unless the byte contains a space. They are left 
untouched but this part of the program could be removed 
fur some really brain twisting effects. 

The program is also a lesson in extending the boundaries of 
the thought process to beyond the ultimate goal. When 1 first 
saw the program in action, I immediately thought of several 
more difficult ways to accomplish the same effect. 

Operation is simple - use (he cursor keys to direct the 
character stream. Alternate between the space bar and 
cursor keys to leave gaps (ie. for messages). 'S' starts it and 



Shift stops it. Once stopped the pattern can be continued or 
cleared. The program has been published so that parts can 
be removed to suit your machine. Use line 15 to store 
changes - just space over the line* and "REM" and hit 
return. 

Of course you need not enter the parts that will get removed, 
but if you do, SAVE a copy first so that it can be passed to a 
friend that may have different equipment than yours. For 
the VIC 20, the first ^^4" would change to a 16 or 30 
depending on the high order address of your screen mem- 
ory. You will also need to ensure the machine code is 
deposited in "real" memory which means the FOR/NEXT 
loop (line 120) and the SYS address (line 60) will require 
changes. 



* * 



rem *■** this version is totally relocatable !!! 
10 rem a rico mariani, chris zamara, rick avers, 

and karl hildon production 
15 rem 3ave"@0:incrementation" ,8:veri(y 

"O:incrementation" ,8 
20printchr$(147); 

30 rem - 4.0 - key = 151:q1 =196:q2 = 197 

:q3 = 198:sp = 32 
35 rem • c64- key-203:q1 -209:q2=210 

:q3 = 21 1 :sp = 60:poke53281 ,493-peek(53281) 
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****+T^** 



*?^l4lk**lt*«A**«#***ifc 



40 rem 

45a = 0:gosub120:rem * slash the data at $6000 ■ 

50geta$:i!a$= " " then 50 

55 aa-asc(a$):if aa = 19 oraa = 147 then print a$; 

: goto 50 
60i(a$ = "s" then sys24576:rem **' press the 's' 

key lo start increment * • • 
65 if peek{key) = sp then 90:rem * space bar to 

indicate desire to move * 
70 aa- asc(a$}:if aa <>1 7 and aa <> 29 
and aa <> 1 45 and aa <> 1 57 thenSO 
75 printa$;:gosub115:pokee,a:a = a+ 1 

:ifa = 256thena-0 
80 if a - 32 then a = 33:rem - it's a space!! * 
85 goto50 

90 gosub115:pokee,peek(e}or128 
95geta$:ifa$=""then95 
100 aa = asc(a$):if aa <>1 7 and aa <> 29 and 

aa <> 1 45 and aa <> 1 57 then95 
105 prinia$;:pokee,f:goto50 
1 1 rem • * • mark the screen location and remember 

what was there • • * 
1 1 5 e = peek(q1 ) -t- peek(q2) ■ 256 + peek(q3) 

:f = peek(e):return 
120 for j = 24576 to 24625 :readx:pokej,x:next:return 
1 25 rem • ' * data for inc-80 ' • • 
130data169, 128, 133, 1,169, 0, 

133, 0,168,177, 0,201, 32 
135data240, 14,133, 2,201, 31, 

208, 2,230, 2,230, 2, 165 
140 data 2,145, 0,165,152,208, 

15,200, 192, 0,208,227,230 
145data 1,165, 1,201,136,208, 

219,240,208, 96, 
1 50 rem for 4000 series change 1 36 in line 1 45 to a 1 32 
1 55 rem * * * data for inc-commodore 64 • * • 
160 data 169, 4,133,106,169, 0, 

133, 105, 168, 177, 105,201, 32 
165dala240, 14,133,107,201, 31, 

208, 2,230, 107,230, 107, 165 
170 data 107, 145, 105, 173, 141, 2, 

208, 15,200,192, 0,208,226 
175data230, 106, 165, 106,201, 8, 
208,218,240,207, 96 



Moneyout 

No this program doesn't deal with the Chrislmas season 
aftermath. It's a subroutine that will format dollar figures for 
output. Sure you've seen lots of them before, but this 7 liner 
is so compact and tidy, we fell il worthy of a re-press. Of 
course it was written by Jim Butterfield. 



The routine formats to 2 decimal places and adds trailing 
zeroes. V] specifies the maximum number of digits left of 
the decimal place - V2 is the precision after the decimal 
place. An overflow will be displayed as ail asterisks. The 
demo routine (lines 300 & 1 10) will show you the possibili- 
ties when the control variables are changed. 

Although this routine won"l dissolve any financial muck, it 
will make the muck look prettier. 



100 
110 
9000 
9010 
9020 
9020 
9030 
9040 

9050 
9060 

9070 

9080 



v1=4:v2 = 2 

v-rnd(1)'12000:gosub9000:printv$;run 

rem print format for money 

v4 = int(v10tv2-(-.5) 

v$ = right$( " " + str${v4),v1 + v2 + 1) 

v$ = rig :rem 8 spcs 

ifv2<1 goto 9070 

forv5 = v1 +2 tovl +V2 + 1 

:ifasc(mid$(v$,v5))<48thennextv5 

v6 = v5-v1-1 

v$ = mid$(v$,v6,v1 + 1) + left$( " ,00000 " ,v6} 

-fmid$(v$,v5) 

tfasc{v$)>47then 



v$ = left$( " 
return 



* * * Jr * * 



it -k ic 



,v1 +v2 + 2 + {v2 = 0)) 



Palindrome 

You have just become one of the few people that have 
actually read the word "patindrome" - it's not exactly part of 
everyday conversation. Nor should it be. A [)alindrome is 
something that reads the same way backwards as it does 
forwards. Words like mom, dad, eve. and clumsmulc 
(clumsmulc?) are all palindromes. Same for numbers - 
23632 is a palindrome. 

As it turns out, ail numbers can eventually be made into 
palindromes, except one (more later). The idea is: pick a 
number, reverse the order of the digits, and add it to itself. If 
you don't get a palindrome, repeat the above using the 
result of the previous summation. For example: 

Number: 158 

Reverse 851 

1009 

Reverse 9001 

10010 
Reverse 01001 

11011 - a Palindrome! 

Not all numbers take so many iterations (eg. 56). Others 
require several, like 98. Regardless, Jim Butterfield felt it 
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was a perfect candidate for a machine language program 
since a similar program in BASIC might take hours to 
eventually reach 70VERFL0W ERROR. 

The following program generates palindromes from some 
given value. Jim cuts it off at 255 digits - "1 figure if it doesn't 
palindrome by 255 digits, it's not gonna. And it seems 
there's one relatively small number that doesn't" - What's 
that Jim? - "well it lies between 150 and 200." - I hate it 
when he does that. 



100 data 162, 0,142,226, 3, 
110 data 32,210,255,201, 32, 
120 data 208, 243, 32,228,255, 
ISOdala 24,201, 48,144,245, 
140data241, 32,210,255, 41, 
150 data 3,157, 0, 24,238, 
160 data 225, 32,210,255.234, 
170 data 240, 100, 162, 0, 172, 



180 data 
190 data 
200 data 
210 data 
220 data 
230 data 



189,219, 3 
240, 3, 232 
201, 13,240 
201, 58, 176 

15, 174,226 
226, 3, 208 

32,225.255 
226, 3, 169 
228, 3, 189 
210,255, 41 
3, 238, 227 
109, 228, 3 
144, 5,233 
255, 24,232 
3,141, 
226, 3, 173 
238, 226, 3 
153,255, 23 

13, 32.210 
153, 96, 86 

32 
t + x 



0,141,227, 3,141, 
0, 24, 9, 48, 32, 
15,217,255, 23,240, 
3, 24,121,255. 23, 
78,228. 3,201, 10, 
10,238,228, 3,153, 
240datal36,208,2i2, 173, 228, 
250data 24,174,226, 3,172, 
260 data 228, 3, 240, 6, 200, 
270 data 240, 20,189,255, 24, 
280 data 1 36, 202, 208, 246. 1 69, 
290 data 255, 173.227, 3,208, 

300 data 65, 76, 85, 69, 63, 
310forj = 828to993;readx:t = 

320 poke i,x : next j 
330 if 1022051 then stop 
400 sys 828 
410 goto 400 



Auto Liner 

Most program listings in print have usually been "renum- 
bered" - they start at some line like 100 or 1000 and 
proceed in nice neat increments of 10. Depending on the 
length of the listing, just entering the line numbers can take 
a considerable percentage of the total time to enter the 
entire program. This is why several of the programmers 
packages available have included an Auto Line Numbering 
feature. 

Quite simply. Auto Liners print the next line number and 
leave the cursor just beyond for you to enter the code. That's 
exactly what these do, 'cept it won't cost you anything. The 
first is for BASIC 4.0/2.0 users, the second for VIC 20/C64. 



60000 input " auto: s tarl, increment " ;s,i 

60010 print B8BBI ; s;:poke167,0 

60020 geta$ : if a$ = " " then 60020 

60030 print a$; : if asc{a$)<>1 3 tfien 60020 

60040 p = peek(33009 + len(str$(s))) : if p - 320 

or p = 160 then 60010 

60050 print "s^'-s+i ":\="\ "igotoeOOIoH" 
60060poke158, 2:poke623,13:poke624,13 

60070 end 



60000 input " auto: s tart, increment" ;s,i 
60010 print " BBBI " : s::poke204,Q 
60020 getaS : if a$ = " " then 60020 
60030 print a$; : if asc(a$)<>1 3 then 60020 
60040 p = peek(1 265 + len(str$(s))) : if p = 320 

or p = 160 then 60010 
60050 pnnt "s-"s + i ":i="i " :goto60010s" 
60060poke198, 2:poke631,13: pake632,13 
60070 end 



Disclosed Files 

How many times have you been in a file routine when 
something goes wrong. The program breaks and the disk 
file is left open with the LED left staring you down with a 
look of inadequecy. If you're just reading the file, a DCLOSE 
will tidy things up. That's if you have BASIC 4,0 or equiva- 
lent (ie. V/C-Link), With BASIC 2.0 you need to give the 
basic CLOSE command, followed by the logical file number. 
And if you can't remember which number you used, start 
looking. 

If you're just reading files, cleaning up disk channels is not 
really critical. The disk unit can deal with this oversight and 
your Hies are not affected. But it is especially important that 
files open for writing are properly closed. It could mean the 
difference between a smooth operation and chronic teeth 
gnashing! 

Once again, a DCLOSE command or a CLOSE followed by 
the correct file number will close your write-hles under 
most conditions. But certain program errors, and especially 
program editing, will terminate communications with the 
disk, and your files are left in a state of potential doom. 

Fear not! All Commodore disk units have a built-in proce- 
dure for closing any open files, read or write. Simply closing 
the Error Channel does it all! If the Error Channel isn't open, 
OPEN it - then CLOSE it. Quite simply: 

OPEN 1,8, 15: CLOSE 1 
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The'\ 15'' specifies the Error Channel - common to allCBM 
drives. A look at the code in the disk ROMs shows a routine 
that examines all possible secondary addresses - to 14 - 
and closes any with apparent activity. The routine is exe- 
cuted whenever the Error Channel is CLOSEd. 

This might sound too good to be true. Well, sometimes it is. 
Other more nasly errors like Disk Full and machine crashes 
may force you to leave a file improperly closed. When this 
happens an asterisk is displayed beside the file type when a 
Directory is printed. Do NOT Scratch them. '^Star files'' can 
be hazardous to the good health of other files. Sector links at 
the end of the star file might lead to other sectors that are 
part of another file(s). These sectors will also be de-allocated 
which means the disk could use them later for new stuff and 
whammo. Instead, use the Collect command. It will wipe out 
any star files while protecting the integrity of the others. 

"But Tve got valuable data in that blasted star hie that I don't 
want to lose!" If that's the case you can still get at it. One 
little known and virtually undocumented feature of al) CBM 
drives is the file Mishaps option. That's right - you can 
OPEN for Reading, Writing, or Mishaps. It allows you to dig 
into a star file, the result of some unfortunate event, and 
extract as much data as you deem necessary. For example: 

OPEN 8, 8, 8, " 0:SOME STAR FILE, S. M " 

Actually the M probably doesn't stand for Mishaps. Regard- 
less, once the file is open you can start to GET* data and 
transfer it to a new tile. Depending on how badly mangled 
the end of the file is, you can repair the end of the new file 
with direct FRlNT^^s. 

Once you feel the new file is complete AND properly Closed, 
do a Collect to purge the bad file(s). 



Direct Error Reads 

Reading the Error Channel (Secondary Address 15) isn^t a 
problem for BASIC 4.0 users - you simply PRINT DS$, the 
Disk Status string. Those without BASIC 4.U (ie, 2.0. C64, 
V[C 20) are probably familiar with this subroutine: 

60000open1,8, 15 
60010 input#1 , e1$, e2$, e3$, e4$ 
60020 print e1$;e2$.e3$;e4$ 
60030 return 

This routine needs to be programmed in memory because 
thelNPUT*'command won't work in direct mode. Of course 
if this code is already part of your program you can RUN it or 



GOTO it, but that can cause other headaches. The following 
allows reading the Error Channel in direct mode: 

open 1,8, 15 :unless already open 

forj=1 to40:sys51844#1,e$:pnnte$;:ifst-0thennextj 

This is for BASIC 2.0. For the 64 the SYS address changes to 
43906 and for the VIC 20 it's 52098. Although you won^t 
need for this circumstance, the address for BASIC 4.0 is 
48001. You can omit any spaces from the statement. 

The SYS jumps into the ROM GET routine 7 bytes past the 
start - this is where it checks for direct mode and sends the 
"?]llegal direct" error message. This works for GET*' but 
not INPUT* - it checks for direct mode differently and can't 
be skipped short of writing your own machine language 
routine. 

Understandably this can become rather tedious. You might 
consider one of several programmers aids that include a 
direct mode error reading command- 



Hard Disk Formatting 

If you have any plans fo install a Commodore hard disk 
drive, chances are the first command you send to it will be a 
New or HEADER operation. Disk users will know that this 
formating procedure is necessary to prepare the unit for all 
future operations. But once you gel it started, you might as 
well find something else to do for a while like learn tu play 
piano or re-build the engine in your car, A Header opera- 
tion on the hard disk can take as long as 1 hour 45 minutes 
because the ID you select is recorded on every sector 
header. 

You need only do this once unless you wish to change the 
ID, A Header without the iD merely clears the BAM (Block 
Allocation Map) and the directory - the rest of the disk is left 
untouched. If you do decide a re-formaf is necessary, just 
remember it will take a while- 
Two other hard disk notes: The unit should never be moved 
while the cylinder is spinning. It takes a minute or so for the 
cylinder to come to a complete stop after power-down. 
When moving it, keep the unit level - don't set it on end or 
its side. Hard disks should be kept on a good solid surface 
during operation. Even small vibrations can cause undue 
wear on the disk bearings. Avoid shelfs, tables with long legs 
or spots thai may get bumped by passers-by. 

Lastly, Commodore hard disks don't have a drive and 
drive 1 - only drive 0, Some software packages assume you 
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have a dual floppy and will attempt to access drive 1. Even 
BASIC tries to read drive 1 when you give a Catalog or 
Directory command with no drive specified. If you're experi- 
encing any trouble, just slip in a '',D0" or "0:'\ 



Disk De- Activity Indicator 

If you're disk unit gets into some long operation, like the one 
mentioned above, you might not ricjtice that it\s finished 
until the next time you browse by. If you have a bell built 
into your computer, here is one way to make it useful: 



print ds$: poke 231, TOO : print 



999 



The POKE increases the chime time of the bell, and the 3 
reverse G's invoke it 3 times. If you're within ear-shot, this 
should be enough to get your attention. Or you can [>ut the 
bell in an endless loop that stops when you hit a key. Only 
one problem with this though - it you happen to step out or 
something, that insidious chiming is enough to drive some- 
one bonkers if left exposed to it for loo long. You might come 
home to find vour new hard disk is now a chop[>ing block in 
the kitchen! 



Weirdities 

Here's our latest collection of crashes and assorted phenos 
for Commodore machines. None of them will harm your 
compuler (unless otherwise specified) but don't try them 
with anvthing imp<>rtant in memory - wc get enough hate 
mail as it is. 



DLOAD'N 

On any liASlC -1,0 maciiine type: 

dioad " lESC][RVS|n 

Don't ask why^ We don't know. Could be like eating a power 
cixfkie. 

Five and Dime 

Trv this on an 8000 series machine. The screen should be in 
upper/lower case with "unsquashed" lines. It alters the 
G5'15 video chip and although won't hurt anything, just the 
same, don't let it run too long. 

poke 59520. 5 : poke 59521 . 1 
To get out of it. hit both Shift keys and *'2 " (the one over the 



Q, not the one on the keypad). 
Pirate Peeves 

Want to drive program pirates crazy. You must admit, if a 
burglar really wants in, he'll get in no matter how much 
protection you iiave. Program pirates are no different. The 
idea is to make them work for it. As they remove one lock, 
you check for it later in the program and throw ttiem a 
couple of knuckle balls. Here's a couple of knuckle balls: 

poke 175,3 

. . .switches the input device from the keyboard to the 
screen. For VIC 20/C64 use poke 1 53,3. Of course the pirate 
will remove this rather unsophisticated excuse for protec- 
tion. So, you check for it. Then execute: 

sys 57441 

This turns off the keyboard completely except for carriage 
returns. U has no VIC20/C64 equivalent. The point is. if you 
make it appear as though the more they unprotect your 
software, the more foul it behaves, pretty ,soon they'll be 
replacing the protection they removed just so they can use 
it. The Transactor will be devoting an entire issue to soft- 
ware protection and piracy in August 1984. Watch for it. 

RAM Expansion 

Wanna show off to that overinflated 48K Apple user next 
door. Try this on *im. 

sys 54295 ;BASIC4.0 

Of course you know there can't possibly be that much, but 
how\s he goima know. Stay sharp though - he may know 
his Apple ROMs with equal ini|>unity. 

Marquis de Sade 

Try this first. It won't be too impre,ssive to begin with but 
give it a chance to reach the 5 digit numbers, 

forj = 1 to 1e30: print] " [CRSR UP]"; : next 

What an effective display for some 5 letter message - if I 
couldonly think of one. 

Instant BASIC Monitor 

You can execute this SYS directly, but it won^t mean much. 
However, put on the end of some line in your pr(jgram and it 
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will report what line that is. It's part of the error message 
routine - the part that reports the line number after a run is 
interrupted. For example: ?syntax error in 6010, 

Immediately upon entering direct mode, the operating sys- 
tem deposits an FF into the high order byte of the Current 
Line Number word, thus rendering that information mean- 
ingless. During program execution, the current line being 
executed is copied here. Try this: 

100 print "linelOO" 

110 print " some line " : sys 531 12:? 

120 sys 53112 

130 goto 100 

For C64 it s SYS 48585 and the VIC 20 is 56777. As you can 
see. if the program is renumbered, the message in line 100 
will need updating. The ROM call, however, is universal. 
You can skip the '1n" display by adding 7 to the address. 

Taking this one baby step further, this routine could be used 
as a primitive hex to decimal converter. For example; 

poke 55, 10: poke 54, 7: sys 531 19 

, , .would print the decimal equivalent of $0A07. (C64/ 
VIC20: use 58 and 57 for the FORK addresses, with the 
above SYS address + 7) This is ok when you can convert the 
low order and high order to decimal in your head. When 
numbers get like CF7D it's a little tougher. Perhaps some- 
one wilh BASIC 4,0 (built-in MLM) will investigate a more 
sophisticated approach to the same end, (Dave Hook, you 
there? You did that once long ago, did you not?) 



Text In Drag 

Back when there was only 40 Column PET/CBMs, The 
Transactor discussed a method of attaching the code from 
one line of BASIC onto the end of the line above it. For 
example, the following two lines need not be on two sepa- 
rate lines: 



used to "drag" the line below up onto the line above, 
squeezing out the line number plus those extra spaces in the 
process. Of course you'd have to insert a colon yourself and 
also delete line llO.Try it! (By the way, this doesn't work on 
the VIC 20/C64 - the screen editor has been changed and is 
now too smart for this trick to be pulled off) 

r 

When 80 Column machines came along there was no longer 
any need for a line wrap table in low RAM - all the lines 
were identical regardless of how much code was entered- So 
the situation above could still occur, but to add one line to 
another required re-typing. 

(You must know what I'm leading up to. Yes. a POKE this 
timejBy making the operating system "think" that each line 
is longer than 80 characters, this same trick can be played 
on the 80 column screen editor. Slight of hand? No. More 
accurately, "right of hand". Location 213 is the right hand 
window margin. Normally it contains 79 for 80 column lines 
(0-79): 

poke 213. 159 

. . .will make the editor think that each screen line is 160 
characters long, however, you're still limited to 80 charac- 
ters per program line. 

Now, about the only way ! could make this work was to start 
from the beginning of the first line and " cursor right " allthe 
way over to about column 75. Only then would DELete 
cooperate and drag the bottom line up. Using cursor left to 
"go around the other way'' created some other problems. 

Once you're done you'll want to restore 213 to a 79. 
Otherwise you^ll get some strangeness occurring. Try 
POKE 213, 255 and cursor down off the bottom of the 
screen. Weird, eh? Again. I don't know why. And if you 
think that's weird, try listing a program that will cause 
screen scrolling. You won't crash the machine, but you may 
have to clear the screen before entering any new direct 
commands. Try experimenting. Tm not sure, but it might 
even work fur 3 screen lines Oe. POKE 213, 239). 



100forj=1 tolO 
1 1 next 

The two lines would be LlSTed on the screen. Then using 
the space bar to wrap around the top line onto the bottom 
line, the two lines would become one double line. Naturally 
it only worked for a range of 80 characters. The top line had 
to be less than 40 characters long and only the first 40 
characters of the line below could be transfered. With the 
two screen lines linked together, the DELete key would be 



The Wooden Wedge 

Ted Evers of Toronto has this valuable advice: It has been 
observed that if the power-supply plug for the C-64 is 
supplied with 4-pins instead of the standard 7-pin type, 
damage can, and will occur to the computer and power 
supply circuitry if this plug is inserted into its power socket 
the wrong way. The shallow key of the plug will allow this to 
happen. 
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To overcome this shortcoming, fill the three unused socket 
holes with wooden toothpicks. The offending sockets are 
pin *'s 1, 3 and 4, indicated by the blocked in areas of the 
diasram. 



CRT screen, random in nature) connect a 330 picoF 
capacitor from pin 20 (ground) to pin 30 (address 6) of the 
6567 (VIC II) video chip. Make this connection outside the 
RF shielded box. 



ON. 





Power Plug 



C64 Right Side View 



Some More C64 Hardware Tips 

In an earlier issue we pubhshed one procedure for a video 
allignment on your C64. Tony Lamarlina of Chicago has 
another, but it's more suited to service technicians or those 
with access to necessary equipment. 

1 . Remove metal cover from video RF area. 

2. Con[iect scope lead between ground and pin 1 of 1C3L 

3. Adjust R27 for 1 .5 volt DC level. 

4. Connect scope lead between ground and pin 4 of DIN 
plug. 

5. Adjust R25 for midposition 

6- Connect decade box between pin 4 of DIN plug and 
right side of C78 

7, Adjust resistance of decade box for 0,8 to 1 volt of 
signal level on scope 

8, Connect resistor of value determined by decade box 
across pin 1 and pin 4 of DIN plug 

9, Fine adjust R25 for best display of colour monitor. 

Tony also suggests the following be checked on early re- 
leases of the 64: 

L Loose RF box covers. Tighten the metal tabs and re-in- 
stall. 

2. Check for a missing heat sink on VR2-7805 voltage 

regulator. Install suitable heat sink, 

3, If the unit displays ^'sparkling" (interference across the 



Octopus Syndrome 

Tony also has this tip for those using a V1C20/C6^ with 
multiple peripherals: If more than one 1541 disk drive is 
connected, bus lock-up will occur if all the units are cycled 
on at the same time (such as using a power bar main switch). 
To avoid this, turn on the 64 first, then one disk, then the 
other. Same with the serial printers - turn them on last. 

DAT Adjuster Update 

In Volume 4. Issue 04 we presented an item called '^DATAd- 
juster"; a routine using POKE that would position the Data 
Pointer for your next READ command. It seems a potential 
bug can invade that version of the routine and Elizabeth 
Deal of Malvern. PA, has sent us a new one. 

There are two POKEs that do all the work. Quite simply they 
deposit a copy of the CHRGET pointer into the Data Pointer. 
However, if a page boundary of text memory is crossed in 
between the two POKEs, the high byte of the CHRGET 
Pointer is incremented by 1 and this value throws the Data 
Pointer forward by almost 256 bytes. Changing the order of 
the POKEs doesn't help because the same thing would 
happen, only in reverse - the pointer would be sent back- 
wards through memory by 256 extra bytes. Therefore, this 
routine is what's called ''position dependent^\ Of course you 
can't write programs to accommodate subroutines- , , quite 
the contrary. 

Elizabeth has come up with a routine that is "position 
independent", it no longer uses the CHRGET Pointer but 
rather the BASIC CONT Pointer. This pointer is constantly 
updated by the operating system to point at the "link bytes" 
(stored at the begirming of each line of text) of the line 
currently being executed. The link pointer always points to 
the link bytes of the NEXT line of text. This value, then, is 
perfect for transfering to the Data Pointer. Liz subtracts 1 so 
that it ends up pointing at the zero byte at the end of the 
current line - this would be the line that contains the 
POKEs. The next scan for DATA would begin with the line 
immediately following- 
Type in the demo program with no extra spaces in the first 6 
lines- 
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lOOdata 0123456789 0123456789 0123456789 

llOdata 0123456789 0123456789 0123456789 

120 data 0123456789 0123456789 0123456789 

130 data 0123456789 0123456789 0123456789 

140dala 0123456789 0123456789 0123456789 

150 data 0123456789 0123456789 0123456789 

160 poke 62, peek{119) : poke 63. peek(120) 

170 read a$ : print a$ 

180 data next read should be of this line 

190 data however 

200 data this will never be found 

210 data the colon inline 160 

220 data crossed a page boundary 

230 rem 

240 rem random restore - liz deal 
250 rem 

260a1=58:a2 = 62:femc64/vic20 = 61 &65 

270 det fn pp(q) = peek(q) + 256 * peek(q + 1 ) 

280detfnhi(q) = int(q/256) 

290 def fn lo(q)-q-256'fn hi(q) 

300y = fnpp(fnpp(a1) + 1)-1 

310 poke a2,fnlo(y): pokea2+ 1. fn hi(y} 

320 read a$: print a 

330 data this is position independent 

For VIC 20 and Commodore 64 users, line 160 changes to; 



1 60 poke 65. peek(1 22) : poke 66, peek(1 23) 

Lines 260 to 290 would be placed near the start of text - 
they're only executed once. Lines 300 and 3 1 do the work. 
They need to be duplicated immediately preceding each 
READ for which positioning is desired. 

As previously discussed, one might save the contents of the 
Data Pointer in two other variables before altering it. This 
way it could be restored to its previous position at some later 
time. 



Reference Issue Update 

On page 56 of The Transactor Reference Issue is a list of User 
Callable Subroutines. Number 21 prints a string from an 
address in the A and Y registers. Somewhere around there, 
if you can fit it, an additional note should be added: the end 
of the string is indicated by a zero (ie CHR$(0)). That's all for 
now. 

This list is one we would very much like to expand for future 
re-release. Any sufjgestions are welcome. Of course if you 
find any errors, we would like to hear about them too. 



Book Review : 



Melissa Gibbins - Oakville, Ont, 



Megabucks From Your Microcomputer 

by Timothy Orr Knight 



The rapid technological growth that we have experienced 
has paved the way for so called ''Whiz Kids^'. Timothy Orr 
Knight, a 1 7 year old on his way to becoming a millionaire, 
is one such Whiz Kid. 

In his book. "Megabucks From Your Microcomputer", Orr 
Knight shows us how to get the best microcomputer for our 
money and then how to make money from that microcom- 
puter. The book covers a range of topics, including guide- 
lines for purchasing a micro; getting started in the 
microcomputer field by writing product reviews, magazine 
articles, and books; writing your own custom software and 
marketing it; coping with adults and their negative feelings 
for young ''computer stars"; and an overall view of the 



different avenues that can be taken in the microcomputer 
field. 

While the book is written by a 17 year old and is geared 
toward the young computer enthusiast, it makes interesting 
reading for us "older folks^\ The advent of the microcom- 
puter has come so quickly that many people are confused. 
This book is written so that it is easy to understand the 
computer revolution and how our children are being af- 
fected. It made light, enjoyable reading material and should 
be favoured by people contemplating entering the micro 
field as opposed to those of us already in it. But who knows? 
You may just find an idea that catches your eye and makes 
you a fortune. 
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CompuKinks. 




Would You Keep Your Pornographic Magazines 

OUT of HIS Reach! 



Keep Sucking Your Thumb and YouMI Lose A Digiti 




There, Maybe Now V\\ Get Some Hall Decent Stations! 
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ci.-;^ cES js>^\: if* xq" 



Mike Panning 8 Hcwy Parkins 




OK, OK. 

BUT A" 



. so SHE GOT THE HOUSE AND CAR 
LEAST YOU GOT THE COMPUTERS 



OJJ 



III li(llSBilEIH3 



!OTo:^^/.i;,TiPTj:j 



Mike Panning & Howy Parkins 




'-J 



UESS THE BUDGET DIDN'T BALANCE AGAI N "^ 



OIJ 



■It UtilHISHrlD 



There is an old language called Cobol 

Whose programs could really snowball. 

So when he asked 

To write It quite fast 

The programmer was aghast at the gall 



The language of the machine 

Makes a program very lean 

When run, few waits, 

But also creates 

A programmer very mean. 



There once was a chip from Silicon Valley 

Which was so fast that it could tally 

Some ten thousand digits 

From a thousand widgets 

And it often had time to dilly and dally. 

Well this new chip made such a big hit 

That everyone tried to make it fit 

On any new board 

But oh my Lord 

Once in a white it would drop a bit. 

- Brad Bjorndahl 
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The M^^^(^^£^^ Column 



Don Bell 
Milton, Ontario 



In this issue we present the second part of the Christmas card 
and gift list application. If should be noted that although it 
was designed with Christmas in mind, it is equally useful all 
year round. Part 2 deals with the sorting, searching and 
indexing aspects of a typical data base. Next issue we'll 
cover the hard copy output procedures. 

The ^64 Manager is only one of several data base packages 
available for the Commodore 64. The applications pre- 
sented here should be equally applicable to other data 
bases. Only the procedure for implementing them will 
change. 

In the second half of this column is Eric Armson's ^'Re-Field" 
- a modification for The Manager on 8000 series machines. 
Re-Field lets you change the lelt'to-nght, top-to-bottom field 
order during Enter/Edit. Great for columnar input. 



A *64 MANAGER Gift List - Pari 2 

THIS COULD BE THE DAY OF JUDGEMENT! No, it's not 
your soul I'm worried about right now, it's the fate of your 
computer! Ponder this sad technological fact - 1 out of every 
4 home computers suffers a premature, ignominious death, 
not even given half a chance to prove its self worth. After the 
rush of Christmas and the thrill of playing video games has 
worn off, many home computers are abandoned by their 
owners, banished to the bowels of the basement or closet 
concentration camps to gather dust along with old hockey 
games, worn-out clothes, ravaged patch dolls and other 
unmentionables. The usual excuse is the owner doesn't 
know what else to do with it. 

A lack of knowledge of useful computer applications com- 
bined with a few humiliating encounters with BASIC, your 
computer, software, instruction manual, or all 4 - may 
provoke the final death sentence. If you are about to pass 
such a rash judgement on your computer, I implore you, 
HOLD OFF! At least, give an application on the '64 MAN- 
AGER a fair trial run before retiring your Commodore ^64 to 
an indefinite cryogenic slumber. 

You may consider this particular application trivial or un- 
necessary, but look at it this way: it's a safe application to 
play with - you aren't risking your money or business with 



it; and secondly, using this application will help you learn 
how to design your own applications in the future - some of 
which may prove to be of inestimable value. 

This column will focus on: (1) potential benefits to the user 
of this application; (2) my improved Enter/Edit screen 
layout - an explanation of the fields and how to make 
entries: (3) some tricks for entering records quickly: and (4) 
how search functions can be applied to this application. The 
next article will use the REPORT GENERATE option to 
produce a mailing list and other useful reports. 

Potential Benefits To The User Of This Application 

• fast lookups of names, addresses, birthdays, anniver- 
saries, card, gift and party information using detailed 
search criteria 

• a fast way of printing mailing labels 

• a backup copy of an address or calendar book 

• a quick way of generating party/gift lists 

• a birthday/anniversary reminder list in order by date 

• a calendar of next contact {or appointment) dates for 
family, clients, or customers 

• group telephone lists 

• use this application as a model to create other related 
applications such as a customer/client list. 
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Error In Loading Instruction 

Before jumping into the details of this application, I would 
first of all like to apologize for an error in the previous 
MANAGER column. I gave the load instruction as LOAD 
"64,M*\8. The correct command is LOAD "•",8,1 as 
stated in the MANAGER manual 

MANAGER Diskettes 

You will always be using 2 diskettes, the system diskette 
with the MANAGER program on it and your own data 
diskette, which contains your own personal screens and 
files you have created with the MANAGER program. The 
previous MANAGER column discussed formatting a data 
diskette. 

Beware The RESTORE Key! 

Hitting the RESTORE key instead of the RETURN key may 



force a crude jump from your current enfry mode to some- 
where else in the program. Watch out for this kangaroo! 

Getting A Printout Of 

Field Lengtlis And Field Numbers 

After you have created your file, The '64 MANAGER has 
included a neat feature whereby you can easily get printouts 
of field lengths and field numbers. LATER, YOU WILL NEED 
THESE PRINTOUTS TO REFER TO WHEN DOING 
SEARCHES OR DESIGNING REPORTS. To get the printouts: 
(I) Select Enter/Edit option; (2) To get field lengths - press 
'up arrow\ then ^p' to print screen; (3) To get field numbers - 
press Shift 'up arrow", then 'p' to print screen. 

Printouts of field numbers and field lengths in my revised 
screen formal are shown below. The dividing line on the 
screen separates personal information from Christmas infor- 
mation. 
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An Explanation Of Fields 

In My Revised Screen Format 

(A) indicates an alphanumeric field 

(N) indicates a numeric field 

{*) zip code is numeric for American, alphanumeric for 

Canadian 

Personal Information 

L LAST NAME (A) 

This is necessary for an alphabetical sorting of names. If 
several people have the same last name, add a space and 
their first name to the field, 

2. MAIL NAME (A) 

This is the actual name(s) you want to appear on a mailing 
list. For example, you may want to group a couple together 
as Mr. &Mrs. Jones- 

3. ADDRESS (A) 

4. CITY (A) 

5. STATE (A) 

6. M/F(A} 

Enter ^M^ for male. 'F for female 

7. COUNTRY (A) 

8. S/M/D(A) 

Enter ^S^ for single, 'M' for married. "D' for divorced- 

9- ZIPH 

10. NEXTCONTACT(N) 

This must be entered as a 6 digit year-month-day number, 

e.g. Jan 9 1984 would be 840109 

11-12 HOME TEL (N) 

Both phone numbers have separate field 

13-14 BUS (N) 

For the area code- Be sure to leave a space as a separator 

{not a '-') between numbers e.g, 446 0001 

15-16 BIRTHDAY (N) 

hi both dates the 4 digit month/day numbers are separated 

from the 2 digit year field. This aids in sorting 

1 7-1 8 ANNIVERSARY (N) 

Birthday or anniversary reminder lists in date order, e.g. 



Enter Feb 1,1984 as 84 0201 

19. FAMILY (A) 

In this field enter names of family members with ages in 
brackets, e.g, John(4), Alice(6) 

20. NOTES (A) 

In this field enter notes about your last contact or upcoming 
contact. This field could also act as a catch-all for more 
family information or any descriptor you might want to 
group people under. 

21. INTEREST (A) 

In this field enter hobbies, clubs or your special affiliation 
with this person. ''Family" might be used to indicate a family 
affiliation, "business'' might be used to indicate a business 
affiliation, 

Christinas Information 

RECEIVED FROM THIS PERSON LAST YEAR 

22. CARD (A) 

A 'Y^ entry indicates you received a 

23. PARTY (A) 

Card or party invitation, A blank entry indicates no card or 
party invitation received last year 

24. ViSiT/CALL (A) 

A 'V means they visited you last year. A "C means they 
phoned you. A blank entry indicates no response. 

25. GIFT (A) 

A description of any gifts received 

26. ${N) 

Approximate value of the gift{s} 

Entries for fields 27-36 are similar to those in fields 22-26- 
Tricks For Entering Records Quicltiy 

Remember, you don^t have to fill in every field! 

F3 duplicates the field in the previous record. This is handy 
for entering similar information in a number of records {e.g. 
area codes, cities, state, country) 

If you want to enter a record that is substantially the same as 
another record already entered, simply get that record on 
the screen and then press Shift ^E'. You may now modify the 
information on the screen and press backarrow to save the 
record. This trick is handy for entering records for people in 
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the same family, or al the same address. 

Be careful that all dates are 6 digit year-month-day entries. 

Searches 

When using the search string editor (F5). use T' to indicate 
an alphanumeric field, and 'N' to indicate a numeric field. 
Here are some useful search functions in the "Enter/Edit" 
option. 

1 . To search for a record by a person's last name; 

Press 'S', place the cursor in the last name field. Type in the 
name, press F3, press 'back arrow'. To gel the next record of 
a person with that same name, press space bar. 

2. To scan your file: 

Press 'S\ 'back arrow'. To display the next record press space 

bar. 



have been designated as ''numeric'^ when you created the 
file. 

Foraspecincdate.e,g. May 8. 1984 
Enter N*^ = 840508 

Before a specific date, e.g, April 18, 1984. 

Enter N*'> ' ' and N'^<840418 

(N*> ' ' excludes records with blank entries for "Next 

Contact'') 

Between 2 dates, eg, April 18,1984 and May 8. 1984 
Enter N^>840418 and N*<840508 

After specifying a date criteria in the search string editor, 
press 'back arrow*. To view the next record satisfying the 
search criteria, press space bar. 

DON'T PHONE - WRITE! 



3. To search for 1 or more beginning letters in a field; 
(e,g- all names beginning with the letter 'B') 

Press 'S\ place the cursor at the beginning of the correct 
field. Type in the letter(s) to search for, press F3, press 'back 
arrow'. To display the next record satisfying the search 
criteria, press space bar. 

4. To search for a first name in the 'mail name' field, perform 
a character (or position) independent search: 

Press 'S', locate the cursor anywhere in the "mail name" 
field. Press F4(hunt), press 'back arrow' 

5. To search for people who sent you a card last year: 
Press 'S', place the cursor in the field indicating whether 
they sent you a card (or gift) last year, enter T\ press F3, 
press 'back arrow'. To view the next record satisfying the 
search criteria, press space bar. 

6. To search for people who gave you a gift last year: 
Press 'S", F5(search string editor). Enter F^> ^ ' i*^ is the 
number of the field indicating you received a gift from them 
last year). To find the next person who sent you a gift, press 
space bar. 

7. You can search for appointments (next contact dates), 
birthdays or anniversaries on a certain date, before a certain 
date or between 2 dates: 

Press "S', F5( to enter the search string editor) 

For each of the following, * is the number of the held in 
which you store the relevant date {next contact, birthday or 
anniversary date). For this search to work, the field must 



If you have questions regarding this application or you 
would like to suggest ideas for future columns, please write 
me a legible, coherent letter, including a self-addressed 
return envelope with stamp. Try to make sure the postman 
gets to it before the dog does. I will attempt to answer letters 
eitherdirectlyor in this column. Write to: Don Bell, c/o The 
Transactor, 500 Steeles Ave., Milton, Ontario, Canada, L9T 

3P7, 



Re-Field 



Eric Armson, Toronto, Ont, 



This next program is a modification to The MANAGER on 
Commodore 8000 series machines. It allows you to re-order 
the sequence in which helds are edited in the Enter/Edit 
function. For example, say you have set up a screen with 
three columns of helds that are perhaps used for dollar 
figures. The Enter/Edit function starts the cursor at the top 
left field. The next held to gel service will be the top field of 
the second column, then the third, and back to the hrst. So 
in order to deal with the first column only, one must use the 
cursor up/down key to skip over fields of the other two. 
After using Re-Field, one can now go from the top of one 
column to the bottom, then on to the next column. Actually, 
it will allow you to service fields in any order you wish. 

This routine is best used when a new screen is created (ie. 
before any data is stored). However, you can use it to 
re-order the field sequence of an existing data base, but you 
will also need to re-arrange the data in your file. Take the 
above example. File data that appeared in the top held of 
each column, will now be sent to the Hrst three fields of the 
first column. Using the Report Generate program, a new 
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data file can be produced that reflects the new order of your of your file, you should maybe lest it oul with, say, the first 

fields. The 1st, 4th, 7th and 10th fields, etc. would become ten records. Of course you should keep a copy of the 

the 1st, 2nd, 3rd and 4th fields, and soon. Probably the best previous file, and always make changes to The MANAGER 

way to attack this is with two copies of the screen layout on on a new disk, 
paper - one with your fields numbered the old way and the 

other numbered with the new order. Depending on the size To set this up, the following changes must be made to the 

program "create" on the system diskette: 

672 rem \s,fs$, "6500 " ," 7dff" 

675 rem \x, "0:menu" 

676 rem lines 677 - 690 are extentions for refield option 

677 sysba + 60,24,00, "D re-arrange field order (y/n)? " 

678 X = peek(1 98):y = peek(21 6} 

680x$="":sysba + 57,y,x,1:gosub20000:ifx$<>"y"then690 

682 z1 = 1000:pokez1 Jen(fa$) 

683 fori =1topeek(z1):pokei+z1,asc(mid$(fa$,i,1)):next 

684pokei + z1,val(d$) 

685 \s,fs$. " 6500 " , " 7dff ^' :\x. " 0:refield " 

690 \s,fs$, " 6500 " , " 7dff " ;\x, " 0:menu " 

Then replace ■" create " on a new system disk. Now enter the following program and save it on the same disk using the title 
" refield " . After using Create/ Revise, you will be prompted for re-arranging the field order as shown in line 677 above. 

2 rem tfie manager , extentions written by 

3 rem ericarmson 

4 rem august 1983 

5 rem game players software 

6: 

9clr:x = fre(0);goto100: gosublOfor input withi length and rf = 

10ifrfthen60 

20y = peek(216):x = peek(198):rf = 1:goto60 

30 rem gosub40 for (y/n) input withi length and rf = 

40gosub10:ifx$<>"y"andx$<>"n"then10 

5Qf = abs(x$= >^'):return 

60x$= "":sysin,y,x,l:x$ = x$:ifx$- "q "thenpoke224,0:\x, "0:menu" 

70 ifx$ = " Q " thenpoke224,0:run 

80 poke158,0:return 

90syspr.24,12,"HVrelurn 

100print"H":poke59468J2:ifpeek(145) = 228then:\r 

11 0ba= 18432 sysba:in = ba + 57:pr = ba-t-60:xy = 57447:mv = ba + 3:z1 =1000 

120fori = 1to8:tl$ = Il$+ "**•*•**"* ":nexl 

130 pnnt"0"tl$;tab(3O}" reorganise fields" :printtl$:print 

140 goto 180 

150 syspr,24,1 2, "any changes on this page (y/n}? " :l = 1;rf-0:gosub40:return 

160lc = a(i,0,fd)^80+a(i,1,fd) + 32768:cr = peek(lc):return 

180 print "arithmetic programs must be rerun after any reordering," :print 

1 90 print " all fields will be set to a default order. " :print 

200fori = ltopeek(z1):fa$=fa$ + chr$(peek(i + z1)):nextd$ = mid$(str$(peek(i + z1)),2) 

210 print" do you want to continue (y/n)? ";:poke1 58,0:1 = 1:rf = 0:gosub40 

220iff = 0then;\^0:menu" 

240 print:print " EBI loading screen . , . " 

250open1,8,15,"i'^ +d$:close1:fs$=d$-i- ":" +fa$+ ",scr":\l;fs$ 
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280nf = peek(27633):np = peek(27638),remt#flds,#pgs 

290poke248,106:poke247.0:poke32767,0:ch = 

300 dim a(np,2,nf),o(nf),f{nf):poke231 ,3:cm =0:gosub800:pr(nt" 

31 fori -Otonp:mn{i) - peek(27632 + i*2560):mx(i) = peek(27640 + i'2560) 

320 poke248, 1 06 + i • 1 0:sysmv:syspr,24, 1 6, " field # Dfield orderfy 

330 fork - mn(i)tomx(i):syspr,24,23, " " :prjntk+ 1 ;:forj =0to2 

340a(i,j,k) = peek(27136 + i-2560 + (k-mn(i))-3 + j):nextj 

350fd = k:gosub160:pokelc,32:pokelc,160 

360pokelc,32;pokelc,160:pnnt"H";:pokelc,cr 



370 if((k/2) = int(k/2))thensyspr,24,36, " - " :goto390 



380syspr,24,36,"n 




390nextk:qosub90:poke158.0:gosub150:iff-0thengQsub90:gosub720:nexti:goIo740 
400 k$ = ■■ D|[Lft]|| ■■ + chr$(l 3) + " qOHh " :rem pos sible keys [Lft] = Crsr Left 



410gosub90:ch = ch + 1:qx= 1 :print " ^BBBBBBBBBI " ; -Cm - cm + mx(i)-mn(i) + i:fc = mn(i) 

420 fd = mn(i):forc = mn(i)tomx(i);o(c) = 0:f(c) = 0. nextc 

425 syspr,24,12, " command (cu,cd,cl,cr,return,nq|3uit,nh0elp.home) " 

430x-a(i,1,fd):y-a(i,0,fd);gosub160 

440 qx - -qx:pokelc,1 60 + ((qx>0)* 1 28):geta$:ifa$ = " " then440 

450 cc = 0:fors = 1 tolen(k$):ifa$ = mid3(k$,s, 1)then470 

460 nexts:goto440 

470pokelc,cr:onsgoto500,520,500,520,540,480,490,760,78Q 

475 rem onsgoto up,dwn,lft,rgt,ret,mnu,run,rst,hlp 

480\x,"0:menu" 

490poke158,0:run 

500 fd =fd-1 :iffd<mn(i)thenfd = mx{i) 

510goto570;left & up 

520 fd = fd + 1 :iffd>mx(i)thenfd = mn(i) 

530 goto570:right & down 

540 rem * carriage return, (store field's order) 

550 iff(fd)<>0then520 

560 f(fd) - 1 :o(fc) = fd:fc - fc + 1 :goto520 

570 iffc>cmthennexti:goto740 

580 iff{fd)<>0then470 

590 goto430 

600 h = 24320:bb -32256:6 - 0:pokeh,0 

610fon = 0tonp:poke248,106 + i'10:sysmv 

620 fork = mn(i}iomx(i};g = bb + (k-mn(i)) *3 

630pokeg,a(i,0,o(k)):b==a(i,1,o(k)) 

640 c = a(i,2,o(k)}:pokeg + 1 ,b:pokeg + 2,c 

650 h = h + 1:e = e+l +c-b:pokeh,e 

660 nextk:sysba + 36:sysba + 39:nexti 

665 fori =0tonp.poke248,106 + i'10:sysmv:sysba + 36:sysba-(-39:nexti 

670d = val(d$):scratch(fa$+".scr"),d(d) 

680 \s,fs$." 6500 ","7dff' 

690\x,"0:menu" 

699 stop 

700 rem • '{patch jobs)** 
710 rem save normal order 

720 fork = mn(i)tomx(i):o(k) = k:nextk:ch = ch + 1 :return 
730 rem check for any changes 
740 ifch = Othen;\x, " 0:menu " 
750 goto600 
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760 ifithencm = mx(0)-mn(0):ch = 1 :goto41 

770cm=0:ch = 0:golo410 
78O\l;"O:help3":syspr,24.12/'npressrtoreturn0" 

790 geta$: ifa$ = " " ora$<> " r " lhen790 
795 sysmv:goto425 

800 rem "■* reset both screen's fields then return 
810sys21408:rem* fill 6700-69ff(ff),5f00-5ff0(ff),6a00-($f7,f8) 
820 poke248,106 : sysmv:rem' set screen #1 & move iri 
830 sysba + 33:rem- reset field info. .7eO0-7eff,5f00-5ff0 
840 sysba + 36:rem' move 5f00-5ff0 to 7f00 ,stop if ($ff) 
850 sysba + 39:rem' move screen back in place 
860 poke248.116 : sysmv:rem' set screen #2 & move in 
870 sysba + 33:rem* reset field info, ,7e00-7eff,5f00-5ff0 
880 sysba + 36:rem' move 5f00-5ffO to 7f00 .stop if ($ff) 
890 sysba + 39:return:move screen back in place 



'64 Manager Updates 

Commodore has released 5,000 copies of version 1.04 of The *64 
Manager. Be advised that this is not the correct version- For 
information on how to receive updates, contact Commodore head 
office: 

Commodore Business Machines 
1200 Wilson Drive 
West Chester, PA 

19380 
(215)4319100 

Commodore Business Machines 
3370 Pharmacy Avenue 
Agin court, Ontario 
M1W2K4 
(416)499 4292 
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Updating Programs 



I find when I'm working on a program that I do one or two 
things which I shouldn't do. First, I don't save or list the 
program regularly enough, something goes wrong, the sys- 
tem crashes and 1 lose all my work. Second, 1 keep saving 
new versions of the program under new names and I can't 
remember which is which. Here is a simple technique lo 
make updating a program simpler. 

My programs always start at line 100, Lines to 99 are left 
for routines 1 use constantly. Line zero is always a title. Line 
one is a GOTO 100. Lines 2 through 9 are my updating 
routines. Let's suppose (he program currently under way is 
called " FISH " , The first lines will look like this: 



Bob Drake 
Brantford, Ont. 

the quote character in preparation for listing the program. 
Line 3 asks your choice and takes the first letter of your 
reply, if you enter *R' then lines 5 and 6 scratch the old file, 
check and print the disk status, save the new file and 
recheck the disk status. 



If you entered "L" then lines 7 and 8 print the proper 
commands on the screen- Line 9 pokes two carriage returns 
into the keyboard buffer (locations 631, 632) and tells the 
computer that there are 2 keystrokes stored there (location 
! 98), The cursor is homed and the program is ended causing 
the 2 keystrokes to be executed. Your program is listed and 
the file closed when done. 



Orem "fish - r.drake(c)1983" 

1 goto 100 

2dose1:open1,8,15, ■'sO:fish":save "0:fish",a:end 

3 open 1,4:cmd1:print"0":list 

4 end 

Line 2 does a replacement save. Commodore equipment 
has had problems with the SAVE "@0:fish" statement. This 
is overcome by first scratching the file and then doing a new 
save- Line 3 lists the program on a printer. To use these 
routines just type RUN 2 or RUN 3. 

These simple routines leave room for trouble. The replace- 
ment save doesn't check for disk errors. The printer listing 
doesn't close the file. You can also become frustrated by 
accidently running the wrong line and doing something you 
really didn't want to do. This second routine is longer but 
covers those problems. 

Orem "fish - r.drake(c)l 983" 

1 goto 1 00 

2U$= "fish":q$ = chr${34):pnnt"Hupdate- "^fiS 

3 input" replace/list" ;a$:a$ = left$(a$,1):if 

a$<>"r"then6 

4open1,8,15,"s0:" 4-ti$:input#1,a$,b$,c$,d$ 

print 0$;"' ^b$ 
5ifa$= '^01 ' thensave"0:" +fi$,8:input#1,a$,b$ 

[print b$:end 
6ifa$< >"r' th en end 
7 print " EBBJ openl ,4:cmd1 :print#1 , " q$chr${147) 

q$ Mist^ 
8print"print#1,'' q$chr$(19)q$ "^ close 1 " 
9poke631,13:poke632,13:poke198,2:print 

To use the routine enter RUN 2. Line 2 assumes you have 
previously entered your program name as Fl$. Line 2 also 
tells you that you are in the updating routine, Q$ is set up as 



To use this program on a PET (BASIC 2.0 or 4,0) requires 
only changing the three pokes. Locations 631, 632 become 
623 and 624. Location 1 98 becomes 1 58. The routine works 
as is on a VIC. 

Don't type in UPDATE more than once. When you begin to 
work on a program, load it into your computer, enter (he 
correct file name in lines one and two, and start program- 
ming at line 100, 

For those feeling lost because they are using tape, not disk, 
have heart. Use these instead. 

The short version becomes: 

Orenn "fish - r.drake(c)1983" 

1 goto 1 00 

2 for i - 1 to 3: save" fish " :next i:end 

3 open 1.4;cnid1:print"0":list 

The long version replaces lines 4 and 5 with: 

4 gosubS.for i = 1 to3;savefi$:next:gosub5:for i = 1 
to3:verify fi$:next:end 

5 print " Qrewind your tape, press a key to 
continue," poke 198.1 :end 

For the PET, the wait statements become WAIT 158,1 

Editor s Note 

Bob has written these handy little utilities on a BASIC 2,0 
machine. So while they will probably work on a VIC 20, they 
will need changes for the 64 and BASIC 4.0 machines. Since 
Bob has explained the function of each POKE and WAIT 
statement so beautifully, VW let you look them up in the 
memory maps published in our Reference Issue. 



The TronsGCtor 



33 



Volume 4, Issue 06 



A Mid Stringers Night Dream Richard Evers 



One of the more forgotten al:iout and useful commands in 
the Commodore BASIC language is M[D$. Though very 
often not the high point of any conversation, it does have 
some admirable points often overlooked. I am writing this 
article for the sole purpose of enlighte[iing everyone who is 
not completely familiar with the power of MIDS. 

The actual working concept of MIDI is very similar to that of 
LEFT$ and RIGHTS, but is more versatile in what it can 
accomplish. With LEFTS and RIGHTS, you can produce 
{length(string)H- 1) different results, which represents six 
different results from a string of length five. With MID$, you 
can produce a total of ((length(string)-l)squared) different 
results, or i 6 different combinations from a string of length 
five. This is the reason why I referred to MIDS as the more 
versatile command, 

MIDI can take one of two forms. They are as follows: 

a$= "abcde" - variable a$ has a length of five 

mid$(a$,a) -where a = \ through 255 

mid$(a$,a,b) - where a = I through 255 and b = through 

255 

In the first case, if variable A was given a value of 2 the result 
of M1D$ would be " bcde " . When the second variable B is 
left out. it is assumed to be the balance of the string in 
question. The result " bcde " is arrived at by spacing over to 
the second position within, and returning with a result of the 
remainder of the string. 

In the second case, we could get any portion of the string 
that could possibly be desired with variations on variables A 
and B. These variables are useful up to the length of the 
string in question. Beyond that is redundant. 

Beiow is a chart that I have prepared to help show you all of 
the possible combinations for a string of length five. As 
explained earlier, 16 different combinations can be 
achieved from a string of length five. This chart will show 
you how this has been arrived at. 



mid$("abcde" .a,b) 
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H J n 

cde 


b-2 




cd 


b=l 




n n 

c 


b = 




(nu ) 


4 b = 5 


resu t - 


= "de- 


b = 4 




II J It 

de 


b-3 




de 


b = 2 




n 1 II 

de 


b=l 




d 


b-0 




(nu ) 


5 b-5 


result ■ 


II H 

= e 


b = 4 




II II 

e 


b = 3 




ti II 

e 


b = 2 




II 11 

e 


b-1 




II 11 

e 


b = 




(nul) 



From the chart I am sure you have been able to formulate in 
your mind how powerful MIDS can be. With some imagina- 
tion, and a set course to follow, any number of useful or 
entertaining results can be obtained with variations of 
MIDS- Each variation can be achieved by combining com- 
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mands from the Commodore BASIC instruction set, and 
M[D$, These combinations are limited only by your imagi- 
nation. 

To follow are five routines that 1 have written for the 
occasion. When run, this program will take you through 
four useful subroutines, and one rather useless but interest- 
ing one. The useless one was included to break up the 
monotony, and also show you how fascinating screen effects 
can be achieved with a little imagination. 



Please enjoy my program, and write to us if ever you find 
more thrilling things that can be accomplished with any of 
the commands. We would like to continue supplying you 
with the latest and the greatest in programming concep- 
tions, a feat that can only be accomplished with your 
continued support. Keep us in mind the next time a violent 
programming brain storm assaults you, one in which you 
have the sadist urge to pass on to others. Thousands of eager 
programming masochists are waiting throughout the world 
for a chance to become enlightened. You could be the key to 
their enlightenment. 



1 rem ■* show various uses for nnd$ ' 

20forloop = lto5:on!oopgosub50J10,180,240,320:next.end 

40 rem * mid$ used to condense the day given by user to a three digit string * 

50 ad$ = " montuewedthufrisatsun " :printchr$(147) 

60 input "please specify the day" ;d$ 

70fora = 1tolen(ad$)step3 td$ = mid$Cad$,a.3):ifmid$(d$,1,3) = tdthen90:rem - ok - 

80 next:printchr$(147)" the day given is not accurate" :goto60 

90 pnnt'^ the day chosen "d$'^ islistedas "td$:fordelay=1to750:next:return 

100 rem - mid$ used to take month given in range 1-12 and match to actual month 

110printchr${147) 

120mt$= "janfebmaraprmayjunjulaugsepoctnovdec 

140 input "please enter the month in range 1-12/mm";mm 

1 50 ifmm>1 2thenprintchr$(1 47) " please enter within range " :goto1 40 

160am$ = mid$(mt$,3^mm-2,3):prinlam$:fordelay=1to750:next:return 

1 70 rem ' and what is a totally useless but interesting use * 
I80printchr${147):u$ = chr$(145):remi ' cursor up * 
190 print "enter an interesting string" :inputs$:s = len(s$) 
200fora=1tos:pnnttab{a)mid$(s$,1.a)tab(s-a)mid$(s$,1,s-a):printu$,:next 
210fora = sto1step-1:printtab(a)mid$(s$,1,a)tab(s-a)mid$(s$,1,s-a):printu$,:next 
220fordelay = 1to750:next;return 

230 rem * a method to get rid of the leading space supplied by str$ " 

240 printchr$(147)" please enter a number" ;inputn:n$ = str$(n) 

250 print "the string value is best shown in reverse" 

260 print"that value is "chr$(18)n$:n =len(n$):f$ = mid$(n$,2) 

270 print " this string is non-useable tor most file applications " 

280 print "to get rid of the leading space, usefs$ = mid$(n$,2)" 

290 print " f$ will hold the value of " ch r$(1 8)fs$ 

300 print "this amounts to a usable commodity !!" :fordelay=1to750;next,return 

31 rem * an interesting concept for a password system * 

320 printchr$(147):gosub380:rem * get a string of all the passwords ' 

330 input "enter password ";pw$:iflen(pw$)>4thenprintchr$(147):goto330 

340fora=1tolen(p$)step4:ifpw$ = mid$(p$,a,4)then360:rem * ok ' 

350 next:printchr$(147);goto330 

360 printchr$(147)"your password is ok ■'pw$:fordelay = 1to750:next;return 

370 rem " set up the password variable p$ sub-routine * 

380 p$= "johnkarlrichbillbarbkriskely": return 

390 rem • each password is 4 in length (ie.john karl rich bill barb etc) * 



Th« Transactor 



35 



Volume A, Issue 06 



The INPUT Glitch 



Bob Drake 
Brantf ord, Ont. 



Recently while writing a program I ran into a problem using 
INPUTS on the VIC and C64, Turn on your 64 or VIC and I'll 
show you what I fou nd. 

Enter a line like my line 10. Make sure the input prompt (the 
part in quotes) leaves the question mark on the very end of 
the line or on the next line. 

10 input "please enter a number between one and one 
thousand" ;a 

Now enter a value and press return. Did you get caught in a 
never ending ?REDO FROM START error loop? 1 did. Press 
RUN/STOP and RESTORE to regain control over the com- 
puter. 

Here's another one. Change line 10 to accept a string 
variable. Add line 20, 

10 input "please enter a number between one and one 

thousand ' :a$ 

20 print " a$ = " ;a$ 

Now RUN the program and enter a word, li you typed 
' test" you should get 

a$ = please enter a number between one and 
one thousand test 



And you thought you had just entered ''test 



It 



These two problems are both caused and cured the same 
way. Both are more of a pain on the VIC because the screen 
tine is so much shorter (22 columns versus 40), If the input 
prompt is so long that the question mark is at the end of the 
line or on the next line, then you have the problem. The 
cure? Keep the input line shorter than one line long. How? 
Use the technique that is used with some older dialects of 
BASIC. PRINT your prompt and then use the INPUT 

Change the programs like this: 

10 print " please enter a number between one and" 
20 input ''one thousand '■;a 



The prompt now leaves the question mark well before the 
end of the line. No more problem with either strings or 
numbers. One word of warning, don't use a semicolon or 
comma with the print. Your computer will again think you 
have a prompt which is too long- 
Here's another one to try. Enter this (use a shorter lab for 
the VIC): 

10 input " enter a word - ;a$ 
20 print tab(30)a$ 
30 input " enter a word " ;aS 
40 print tab(30)a$ 

RUN the program. Type something for the first word. For the 
second word just hit return. If you typed " test " you should 
get: 

ENTER A WORD? TEST 

TEST 

ENTER A WORD? 

TEST 

Although you made a null input, the computer remembers 
the last value you had for the string. This can be good if you 
want to make multiple entries of the same value. It can be a 
pain, if you assumed as I did that A$ would be empty on the 
next input- Exactly the same situation holds for numbers, 
previous values are used when you have a null input. How 
do you beat this one? Do the same thing that is done on 
mainframes. Don't assume a variable has a value unless you 
have assigned it. Changing the program like this will do the 
job. 

10 input " enter a word " ;a$ 
20 print tab(30)a$ 

25 a$-"" 

30 input " enter a word " ;a$ 

40 print tab(30)aS 

Now A$ is empty going into the second input. 

Next time weird things are happening with your programs, 
remember that your INPUTS may be causing the problem. 



Th« Transactor 



36 



Volume A, l»ue 06 



Subroutine Eliminators 



Jeff Goebel 
Georgetown, Ont. 



Hello and welcome to a new concept in computer articles. 
This is Ihe first in a series dedicated entirely to eliminating 
entire subroutines. It delves into the many existing but 
vastly un-known features of the Commodore PET series. 
Althougii these articles have been written for the PET 4032 
computer specifically, many of them are applicable to other 
Commodore machines. In the future. 1 will be releasing 
similar articles for the Commodore 64. and V1C20- 

If this article sounds interesting to you, and you like the idea 
of typing in one line instead of a twenty line subroutine, 
then you will be even happier when you discover that this 
month, in my premier article for the TRANSACTOR, I have 
included two deadly POKES, both which replace the most 
commonly written about problem with Commodore ma- 
chines. 1 have the feeling 1 may lose a few readers with this, 
but if you bear with me, 1 assure you, it^s well worth it. This 
month's article is another substitute for the infamous Com- 
modore input statement. 

Yes, I'm sure that you have read at least 20 or 30 articles 
about alternatives to the dreaded input. Each longer and 
more useless than the last. Each, stating ^THIS ONE IS THE 
best;' Well 1 don't stale that. 1 think it is, but I'll let you 
decide for yourself. Poke 16 J, There. Thai's it. Did you miss 
it? Poke 16,1, There it is again. Done. Now your Commo- 
dore input will react as you have dreamed. Nothing signifi- 
cant has changed, but try hitting a return on a null entry. 
You can't. Short and to the point. It eliminates lines of text. 
After INPUTing. do a PRINT and POKE16,0 to return to 
normal. TA DA! 

For those of you who still prefer the GET subroutines 
because you need commas or colons in your input, 1 have 
another equally short but just as powerful POKE. It too 
destroys the need for long drawn out subroutines which 
need to create a cursor (something which the GET statement 
requires to prompt the user to type on the keyboard), POKE 
1 67,0 solves it. Simply put, it turns on the computer's cursor 
when normally it would be off thus creating a needed 
prompt for the GET statement. It reacts exactly the same as a 
regular cursor because it is a real cursor. When the GET 
routine is complete, turn it off with POKE 167.1. If you 



forget, it^U stay on and you'll have a cursor popping up 
everywhere as you print to the screen. 

How much would you expect to pay? But wait. . , You also 
get, at no extra charge, a powerful memory saving method 
of keeping your screen "awake" while your computer is off 
doing a function. For example, you are sorting 1000 names 
with a three line bubble sort. After waiting ten minutes, you 
start to get suspicious that maybe your computer crashed. 
After fifteen minutes you are starting to sweat because your 
friend is watching you and you don't want to look like a fool 
sitting in front of your computer if you aren't sure it's 
working. Suddenly, itafitof madness, you hit the break key 
and are greeted with BREAK IN 60. It wasn't crashed, but 
now you have to start again. Wouldn't it have been easier to 
have the computer screen flashing that "YES, I'm sorting." 
Obviously, this sort of a subroutine would slow down the 
procedure even more if it had to run through that loop 
everytime right? WRONG! Enter POKE 167,0. Bingo! A 
flashing box that takes no loop routines and no extra 
memory. 

But you say, YEECH! 1 don't want a cursor on the screen. 
People will think it's an input prompt! I say, disguise the 
cursor behind a graphic symbol. Remember, it is a regular 
cursor, if you place it on top of a symbol, that symbol will 
flash ON and OFF between reverse field and regular field. 
With some symbols, this is quite attractive. Experiment, but 
be sure to shut if off when your sort is finished. (! also use it 
when outputting to the printer, just to make my screen 
pretty,} 

Well, that sums up this months blitz. With two POKEs. I 
have managed to create hundreds of obsolete magazine 
articles across the nation. I would love to hear from anyone 
about famous, or not so famous ''one liners" on any of the 
Commodore machines. As it happens, I have aquired most 
of mine from back issues of the original TRANSACTORS or 
COMPUTES, and a few from friends. But many of the best 
things arc never published widely, and some, that are never 
published at ail, get used within a program with no explana- 
tions given. I felt it was a shame, so I did something about it. 
This article is that something. 
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Three GET Subroutines 



Richard Evers 



The GET statement is possibly one of the most useful 
statements in the entire Commodore lingo. With GET you 
can pick and choose what comes in from the keyboard. If 
you don't want the user to do rude things with assorted 
keys, you can block it with usually one line of code. If you 
want to limit the length of the string that you receive, that is 
also very easy by checking the total length of the string that 
you have been concatenating. And unlike the INPUT state- 
ment, GET will not crash with a single carriage return. 

Below are three different GET subroutines for your evalua- 
tion. Each subroutine is fully capable of doing what is 
expected of it, but each differs in the manner in which it is 
accomplished. 

The first type is a very simple, three line GET subroutine. 
From within your normal program flow, you GOSUB to this 
address to get a character from the keyboard returned in 
string variable AS. From that point you should check if the 
string is within your needs, and if so print it or whatever you 
feel like doing with it. 

The second type is a little bit more complex. When a key is 
pressed by the user, the choice is immediately shown on the 
screen, with the cursor flashing on top of it. This is accom- 
plished by hrst printing the variable, then printing a (cursor 
left) after it. Until the user hits the return key, this routine 
will keep on going. When returned, the final answer given is 
held in string variable B$. 

The third and final type is my personal favourite. There is no 
flashing cursor on this one at all. The contents below where 
the cursor would be is immediately OR'd with 128 to 
achieve the on cursor look. At that point, like all other GET 
routines, it just sits there waiting for a reply. When the reply 
is given, the position that was OR'd with 128 earlier, has that 
1 28 subtracted from it to get rid of the reverse block. 



The reply from the keyboard is held in string variable A$ at 
that point- It is immediately converted over to an ASCII 
value to help with the checking procedure for acceptable 
entries, and also the check to see if anything special has to 
be done at that point. If the key pressed is a carriage return, 
and the string B$ has a length to it, then the subroutine 
returns with B$ holding the total entry with a maximum 
length of ML, a variable that you set up before entering the 
subroutine. 

If the key pressed was a (delete), a sub-section is b. mched 
to that will delete the entry before last, and re-dir lay the 
entire string. From there it branches back up to tlic get a 
character routine again. 

Please notice line number 5006 in the listing. It is there to 
stop any rotten keys from being accepted. The rotten keys in 
mention are all of the (cursor) keys, (home), (clear) and every 
other lethal key that could possibly be used for evil things 
like making a mess out of the screen. If A$ has passed that 
test, it is added to string B$, printed to the screen and 
checked to see if it is within the maximum length- If so it 
branches back up to get another character. 

The 'OR with 128, subtract 128' technique can be used to 
help with any keyboard entry system that you conceive, one 
in which you don't want a flashing cursor dashing around 
leaving behind tracers. 

For your own programs, the INPUT statement is probably all 
you need. Since you're familiar with their operation, it's 
unlikely you1l need to protect against yourself- Even INPUT 
can be fooiproofed to some extent (see Subroutine Elimina- 
tors page 37). But if youVe expecting trouble, a GET routine 
is what you need. Most programs will require their own 
individual versions - there is no such thing as a universal 
get routine- Hopefully one of these will GET you started with 
a subroutine that you can modify until it fits just right. 
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rem * normal get subroutine *^ 

1 rpm *****************'^**** 

2 rem * 4.0 basic - cr = 1 67 

3 rem • vie + c64 - cr = 204 

5 rem 

5000 poke cr.O 

5001 geta$:ifa$= "''then5001 

5002 pokecr,1:return 



rem - expanded get subroutine * 

2 rem ' 4,0 basic- cr = 167 

3 rem * vie + c64 - or - 204 

A rem '******i*******"****''** 

5 rem 

6 rem * this subroutine will return with single character reply in b$ 

5000 b$ = " " 

5001 pGkecr,0 
5002geta$:ifa$= "^then5002 

5003 poke cr, 1 : if a$ = chr$(1 3) and len{b$} then return 
5004printa$;chr${157)i:b$ = a$:goto5001 



rem * special get subroutine " 

2 rem '80 col -mp-80 

3 rem * 4,0 basic - ss = 32768:ya = 216:xa = 198 

4 rem - 40 col - mp = 40 

5 rem • vie + c64 - ss- 1024 :ya-214:xa = 211 

6 rem • 22 col -mp = 22 

7 rem ■ set ml = maximum length of string before entering this subroutine 

9 rem 

5000 b$ = '■ " 

5001 a = ss -(- peek(xa) + peek(ya)-mp:pokea,peek(a) or 128 

5002 geta$:ifa$= " "then5002 

5003 pokea,peek(a) - 128:b = asc{a$) 

5004 ifb= 13 and len(b$) then return 

5005 ifb = 20 then5009:rem * delete - 

5006 ifb<32 or b>1 28 and b<160 then 5001 

5007 b$ = b$ + a$;printa$;:iflen(b$)< ml then5001 

5008 return 

5009b-len(b$);ifbthenb$ = mid$(b$,1,b-1) 
5010pnnt;pnntchr$(145)chrS(22);b$;:goto5001 
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Master Menu Driver 
Type 1 



Richard Evers 



In Ehis issue yoii will find two master menu programs to 
choose from. Each use completely different methods to 
achieve the same result. What is to follow is an explanation 
of the operating characteristics of the first type, a version 
that achieves its goal without any special effects, but as such 
proceeds in a very business-like manner. 

While writing this menu, I have tried to keep future modifi- 
cations in mind as much as possible. Due to this fact, five 
separate subroutines and one final sub-section have been 
incorporated together in such a way that will help stop 
major surgery on the program when changes are to be 
made. You will notice that the flow is also very understand- 
able, something that you will appreciate later when it comes 
to adding new subroutines. When everything has been 
considered, you will find this to be a very friendly and 
efficient routine to use. 

Quick Explanation Of Variables And Subroutines: 

EP = pointer to the end of basic program and the start 

of variables 
AE = pointer to the actual end of basic program in memory 
TT = tab position for first display line 
TS = tab position for second display line 
TL = left hand tab for choices on menu 
TR = right hand tab for choices on menu 
CR = cursor location within memory 
NK = counter in zero page of number of characters 

in keyboard buffer 

print chr$(14) or poke53272,23 - set the display into text 
mode 



GOSUB 55 
GOSUB145 
GOSUB 185 
GOSUB 210 

GOSUB 230 
GOTO 245 



set up the variables sub-section 

display the screen for the audience 

get a choice from the keyboard 

check if choice is accurate, if so return with 

re-evaluated string 

check if program exists, and load in if found 

error routine if program not found 



Please take note of variables EP and AE. They are very 
pertinent variables and have to be the first ones set up in 
this routine. Substitute actual values for these variables on 
the first executed line of the program, and every program 
that you intend to boot in. The reason for this line is to slop 



what ! call the 'Microsoft Munch', a rude condition brought 
on by large loaded programs and small older variables. A 
very bloody clash occurs in which the little guy always wins, 
destroying all chances for your recently loaded in program 
to survive. What you will find is that your new, larger 
program will be amputated at about the same spot where 
your old program ended. Strange line numbers and odd 
strings of characters will mark that spot, a condition so 
frightening that many programmers minds have literally 
self-destructed upon occurence, never to regain total sanity. 
Please avoid all troubles and do as requested. 'Microsoft 
Munch' is a disease, but one that can be cured through 
knowledge. 

A very strange technique has been used in setting up the 
arrays for display, with the programs to be loaded being the 
first in the array. When a program has been chosen by the 
user, the choice is first broken down to an ASCII value, with 
65 subtracted from it thereafter, then the actual string is 
checked to see if it is within range. If it is. the subroutine 
returns to where it came from to continue on. If the choice 
was wrong, a loop occurs in which the only method out is by 
answering correctly. 

After the choice has been verified, the program goes to the 
checking and loading in routine. When 65 was subtracted 
from the ASCII value of the choice given, its value dropped 
down to something in the range of through 6. When the 
arrays of program names were originally set up, their corres- 
ponding numbers were also in the range of through 6. This 
number, used in conjunction with the string B$, is used to 
first check if the program exists, then load It in if it does. By 
using this technique, quite a bit of room has been saved, 
with future updates being possible with no modifications 
necessary to this area. 

If the program does not exist, a special sub-seclion is called 
to let the user know. The only time that the program will not 
be found is if they are purposely trying to foul your program 
up, without succeeding I might add. 

With my explanation finally complete, the program is before 
you for your evaluation. Please don't hesitate to modify it 
until you have precisely what you require. What I have 
written is actually just a skeleton, one thai only you can 
expand on with your thoughts. 



Th« Transactor 



40 



Volume Af Issue 06 



rem universal master menu type one 

5 pokeep,peek(ae}:pokeep + 1 ,peek(ae+ 1);clr:rem - first evaluated line * 

1 Q rprn **************************** 

1 5 rem • 80 col - tt - 28:ts = 22:tl = 1 7:tr - 46 

20 rem ' 4.0 basic -ep = 42:ae = 201:cr-167:nk-158:printchr$(14) 

25 rem • 40 col - tt - 7:ts = 0:tl = 0:lr - 20 

30 rem * c64 - ep = 45:ae = 1 74:poke53272,23:cr = 204:nk= 1 98 

QR rsm **************************** 

40 cir : rem ' a good line to place the variables * 

45 gosub55:gosub145:gQSUb185:gosub210:gosub230:goto245 

50 rem * - * variable set-up subroutine * ' ' 

55dimb$(21) 

60 b$(0) - " prgi " :b$(7) = " (a) Program One " 

65 b$(1 ) = " prg2 " :b$(8) = ' (b) Program Two " 

70 b${2) - '■ prgS " :b$(9) = " (c) Program Three " 

75 b$(3) = '■ prg4 " :b$(1 0) = " (d) Program Four " 

80b$(4)= ■■prg5":b$(11)- "(e) Program Five" 

85 b$(5) - '■ prg6 " :b$(1 2) - " (f) Program Six " 

90 b$(6) = ■■ prg7 " :b$(1 3) = " (g) Program Seven " 

95 b$(1 4) = '■ (q) Quit Program " 

100b$(15)- "Master Menu Version 1.0" 

1 05 b$(1 6) = " Please Choose The Program Required " 

110b$(17)- "Your Choice (*)" + chr$(1 57) + chr$(157):rem (cursor left)-2 

115b$(18)-chr$(19) + chr$(19) + chr$(147):rem(home)x2 + (clear) 

120 b$(19)- "The Program Chosen Has Not Been Located" 

1 25 b$(20) - " Please Ensure That Your Program Disk Is" 

130 b$(21 ) - " In Drive Zero. Press Any Key When Ready " 

135 return 

140 rem '•* screen display subroutine 

145printb$(l8):pr(nt:printtab(tt)b$(15) 

150 print:printtab(ts)b$(16) print 

1 55 print:pnnttab(tl)b${7)tab(tr)b$(8) 

160print:printtab(tl)b${9)tab(tr)bS(10) 

165print:printtab(tl)b$(11)tab(tr)b$(12) 

170print:printtab(tl)b$(13)tab(tr)b$(14) 

175print:printtab(tl)b$il7);:return 

1 80 rem • • * get the choice subroutine 

1 85 poke or, 

190getc$:ifc$= ""then190 

195 poke or, 1;return 

200 rem * * * check choice and assign variable subroutine 

205gosub185 

210 ifc$="q" then end 

215c = asc(c$)-65:ifc$<'"a" orc$>"g" then205:rem * wrong choice 

220 return 

225 rem • * * check if program exists and load in program * • * 

230 open5,8,5, " 0: " + b$(c) + " " :get#5,c$:ifst<>0thenclose5;return 

235 close5:load " 0; " + b$(c) + " " ,8 

240 rem - * * program does not exist sub-section * " 

245 printb$(1 8);b$(1 9):print:printb$(20):printb$(21) 

250 poke nk,0:wait nk,1 :poke nk,0:goto40 



* it 
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Master Menu Driver 
Type 2 



Richard Evers 



Of the two master menus that you will find in this issue, this 
one is by far the most inlerestinf; to fry. The technique used 
in deciphering the chosen program and the routine used to 
load that choice will make this a favourite of many people. 

To start with, the deciphering process to get a choice from 
the keyboard, and then figure out wtiat to do with it 
minimizes IF statements. The variable B$ is ^iven the value 
of every choice that can be made from the keyboard, ie. 
B$= "ABCDEGHIJQ", From there, the program branches 
to the sub-section that gets the choice and figures out if the 
choice is legitimate. If the choice is good, the variable B will 
hold the number associated with the array oi the program 
chosen. With everything complete in this section, the pro- 
gram returns to finally execute the actual loading procedure. 

The loading procedure is really the best part. The choice is 
checked out to see if the user wants to quit. If not, the 
balance of the program is executed- The screen is cleared, a 
(cursor down) is printed, followed by the phrase LOAD, a 
quotation mark, the program name to be loaded in (arrived 
at by the variable B), another quotation mark and the phrase 
" ,8 \ Four consecutive PRINT statements are printed to the 
screen, with the phrase RUN being printed thereafter. To 
finish the display routine, a cursor home is printed, to 
position the cursor at the top of the screen. 

From this point on the concept gets a little sticky, but with 
perseverance and luck on our side, we will be able to pull 
ihrough. 

The variable NK is the location in memory that keeps track 
of how many characters are currently held in the keyboard 
buffer, with the location of the keyboard buffer itself going 
under thu variable name KB. The value of 4 is POKEd into 
variable NK to signify four characters in the keyboard buffer, 
after which the process of putting those four characters into 
the buffer begins. 

First, a cursor home or CHR$(1 9) is placed in the start of the 
buffer. This will ensure that the cursor is positioned at the 
top of the screen. Second, third and final, the next three 



positions of the buffer are filled with carriage returns- When 
that is complete the program ends, and the characters we 
have POKEd into the buffer will be treated by the computer 
as if they were typed on the keyboard. 



top of screen 



load>rg^",8 + chr$(13) ; load etc' by program. chr${13) 

by buffer 

searching for prg* ; printed by operating system 

while trying to load 
; again, printed when program 
found 

; printed by system after program 
has been loaded 

(cursor) + chr$(13) ; the cursor returns, and a 

chr$(l 3) printed by buffer 
; 'run' by earlier program, and 
chr$(13) by buffer 



loading 
ready- 



run + chr$(13) 



As 1 have aUempted to show above, the loading procedure 
goes pretty much the same as manual mode. The keyboard 
buffer now starts to do its job, with the cursor being placed 
on the second line from the top of the screen, or the line 
with "L0AD'"prg*",8" printed on it. It has Sanded on this 
line due to the lack of a semi-colon after (home) was printed. 
To activate the loading procedure, the keyboard buffer now 
prints out another character, a CHR$(13} this time. This 
carriage return, due to the fact that the computer is really in 
direct mode, will activate the LOAD statement and the 
program will be loaded into memory. 

When the loading in procedure has been completed, the 
buffer continues on its merry way again, this time with two 
more carriage returns. The first will drop the cursor to the 
line with RUN printed on it. and the second will activate it. 
With that complete, the program loaded in has been put into 
play, happily running away under its own power. 

One point in favour of using this technique is to help avoid 
"Microsoft Munch'; the problem that occurs when a small 
program loads in a larger one. Normally, this would cause 



Thfi Transactor 



42 



Volume 4/ Issue 06 



huge headaches due to the fact that the new program and With all that said, my verbose rundown has come to its 

the old variables bump into each other. This problem is merciful end. Please modify tfie routine to your hearts 

totally alleviated due to the fact thai the computer is essen- content. That is the purpose of this issue and 1 hope that you 

tially in direct mode while everything takes place, and is take advantage of it. 
therefore exempt from these problems. 



10 rem universal master menu type two 

15a$(1)="prgr:a$(2)="prg2Va$(3)='>rg3":a$(4)="prg4^;a$(5)=''prg5" 

20a$(6)="prg6";a$(7)=>rg7":a${8)="prg8":a${9)="prg9":a$(10)-"prg10" 

30 rem - 80col - t!-23:tf=11:ts = 40 

35 rem * 4.0 basic - printchr$(1 4):nk = 158;kb == 623:cr - 167 

40 rem ■ 40 col - tl = 6:tf = 0:ts = 20 

45 rem • c64 - poke53272,23:nk= 1 98:kb -631 :cr = 204 

50 rem *****■■**************'*****■**** 

55 rem 

60 pnntchr$(147):printtab(tl) " Master Menu Version 2,0 " :print:print 
65 printtab(tf)" (a) Program One "tab(ts)^'(b) Program Two'' :print 
70 printtab(tf) "(c) Program Three ''tab{ts) "(d) Program Four" :prjnt 
75 prinnab(tf)"(e) Program Five "tab(ts)"(f) Program Six" :print 
80 printtab(If) " (g) Program Seven " tab(ts) " (h) Program Eight " :prmt 

85 printtab(tf)"(i) Program Nine "tab(ts)"(j) Program Ten" ;print 

90printtab(tf)"(q)Quit "tab(ts)"(")"chr$(157)chr$(157); 

95b$= "abcdefghijq":gosub115:ifc$="q"thenend 

1 00 printchr$(1 47)chr$(1 7) " load " chr$(34)a$(b)chir$(34) " ,8 " 

105 print:print:print:print:pnnl"run"clir$(19) 

110 poke nk,4 pokekb,19:forb = 1to3:pokel<b-+-b,13:riext:end 

115gosub130:forb = 1tolen(b$):ifc$<>mid$(b$,b,1)thennextb:goto115 

120 return 

1 25 rem * • '^ get a character routine 

130 poke cr,0 

135getc$: itc$= "" then135 

140 poke or, 1 : return 
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Sub Section Menu Driver 



Richard Evers 



In this issue I have shown you two ways in 
which lo produce a master menu for your 
programs. Each one of these have been writ- 
ten to boot in other programs of the users 
choice. What is now to follow i.s the si^etetal 
framework of the program that the others 
were booting. Tlie concept is very simple to 
grasp, and has been written with modifica- 
tions for the C64, 4000. 8000 and 9000 se- 
ries- 

Something that you will notice about the 
program is that there is no massive 'IF' table 
located anywhere to determine what to do 
with the users choice. What normally would 
take a table of 7 lines, or more, has been 
reduced to 2 lines in total, including the 
check for inaccurate choice. Once a choice 
has been deciphered, an ON. GOTO state- 
ment transfers execution to some other sec- 
tion of your program- The variable here is 
simply the ASCII value of the key typed by 
the user, minus 64. The result is a rumiber 
from 1 to N, where N is the number of 
sub-sections in your program- 
There are only seven variables used in total 
in this program, of which the purpose of each 
will be found in the following list. 

TT = The tab position of the top display line 
TN = The tab position of the 2nd display line 
TF = The lab position of the left most 

of the choice display 
TS - The tab position of the right most 

of the choice display 
CR = Cursor Location 



1 rem a menu for all occasions 

15clr:cl$= " ":(ora=1to14;cl$ = cl$-t-chr$(157):next:rem cursor lefts 
Of) rpm *********************************** 

25 rem * 80 col - tt = 28:tn = 21 :tf - 1 2:ts = 42 

30 rem • 4.0 basic- cr-167:pnntchr${14) 

35 rem * 40col - tl = 9:ln = 1:tf=0:ts = 20 

40 rem * c64 - cr-204:poke53272,23 

A^ rpm *********************************** 

50 rem 

55 printchr$(147):pokeca, vc:print 

60 printtab(tt) " My Menu - Version One " :print 

65 printtab(tn) " Please choose the section required " :print:print 

70 printtab{tf) " (a) Section One " tab{ts) " (b) Section Two " :print 

75 printtab(tf) " (c) Section Three " tab(ts) " (d) Section Four" :print 

80 printtab(tf) " (e) Section Five " tab(ts) " (f) Section Six " :print 

85 printtab(tf) ' (x) End Session " tab(ts} " (*) Your Choice" cl$; 

90 rem • • * get choice and act on it section • ' " 

95 gosublB5:ifa$= "x"then115:rem * end session routine * 

100a-asc(a$)-64:ifa<1 or a>6 then95 

105 on a goto 150,155,160,1 65, 170,1 75 

1 1 rem * * * end session sub-section * * * 

1 1 5 pnntchr$(147):print:pnnttab(3) " End Session " 

1 20 printtab(2} " Are You Sure ? " 

1 25 print "(y) Yes or (n) No" 

130gosub185:ifa$- "y"thenend 

135ifa$=''n"then15 

140goto130 

1 45 rem * • * start of ttie main routines ' * • 

150 printchr$(147)" Section One" :stop 

1 55 printchr$(1 47) " Section Two " ;stop 

1 60 printchr$(147)" Section Three" :stop 

1 65 printchrSJl 47) " Section Four " ;stop 

1 70 printchr${1 47) " Section Five " :stop 

1 75 printchrS(l 47) " Section Six " :stop 

1 80 rem * * • get a character sub-routine 

185 pokecr ,0 

190geta$;ifa$- ""then190 

195 pokecr ,1;return 
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Directory Subroutines 



Richard Evers 



Though never a problem for users of 4.0 equipment, it is a 
lolally different matter for the users of the VIC and C64 
computers. Directories can be achieved, but they have to be 
loaded into memory, thus destroying everything in their 
path. What is to follow is two methods of achieving this goal 
while in program mode. You will find each method with 
redeeming qualities, best suited for applications only you 
can determine. 

The first routine prints only the filenames in columnar 
format on the screen. The VIC 20 is exempt from this 
printing format due to lack of room. Quotation marks, size of 
files and all that other interesting programming information 
is purposely left out. What is left is actually quite pleasing to 
see, a totally uncluttered compilation of files held on disk. 

The second routine, written by Paul Higginbottom, gives an 
exact duplicate of what would be achieved by a 4.0 directory 
of the disk. Everything of interest to the programmer is 



printed on the screen, including the file sizes, file types and 
blocks left free. 

As specified earlier, the choice of routme is best determined 
by the type of application that you are writing for. For 
business and general applications, I feel that the first type is 
the most useful. Non computer oriented people are best not 
exposed to information that would only confuse them while 
performing their job functions. The second type is more 
suited to a programmers atmosphere. 

Both routines are display oriented. That is, the information 
held in the disk directory file is merely displayed. For those 
of you writing programs that deal with disk on a more 
intimate level (eg. monitors or file handlers), you may need 
more details from the directory file than either of these 
routines is set up to deliver. If that's the case, a program 
called ^'Catstrapolator" appears in Volume 4, Issue 03 of The 
Transactor that breaks down the directory data into more 
accessible information for these types of programs. 



ft * * 



1 00 rem * • * directory - type one 
105 rem ^ 80col-dt = 4 
1 1 rem ' 40 col - dt = 2 
115rem • vic20 -dt=1 

1 20 input "Please Specify Drive Number For Directory ";a$:a = 0:b = 
125ifa$<"0'^ ora$>"1"then120 

130open1,8,0,^'$" 4-a$+ " " ;get#1,a$:get#1,a$ 
1 35 ifa = (dt) then a = 0;print 

140pnnttab(20*a);:forc=1to4:get#1,a$:next:ifst<>0thenclose5:return 

145get#1,a$:ifa$- "'^thena = a4-1:goto135 

150ifa$ = chr$(34)thenb-notb:goto145 

155 ifbthenprintaS; 

160goto145 



1^ * « 



1 00 rem - - - director type two 

1 05 rem ' 4000/8000/9000 - kb = 1 58 

llOrem * vic20 + c64 -kb=198 

115 input" Please Specify Drive Number For Directory ';dr 
120ifdr<0ordr>1 then115 

125n$-chr$(0):h=256:poke(kb),0:open1,8,0/'$"+mid$(str${dr),2) 
130get#1,a$,a$ 

135get#1,a$.a$,a$,a1$:ifstthen160 
1 40 printasc(a$ + n$) -f asc(a1 $ + n$) 'h; 

145 ftpeek(kb)then160:rem " if key pressed / abort • 

150get#1,a$ifa$<>""thenprinta$;:goto150 

155 print: goto135 

160 closel poke(kb),0:return 
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Two Universal Date Richard Evers 

Input Subroutines 



For a vast majority of programs, some method to get a date gosub to the start address is required to put them into action, 

from the user, and thereafter verify the validity of that date is with your results being held in string variable TD$. 
required- To follow are two complete subroutines to help 

cure that problem. Both subroutines are have been written Both routines ask for the date in numerical format. Using 

as efficiently as possible, and as such are worthy of your this information, you can convert TD$ into a day - date - 

close inspection before choosing the one for your particular month - year formal. See the article on M1D$ (page 34) for 

application. Please remember that these are subroutines, A procedures to make these conversions. 

5000 rem * first date subroutine 

500 1 rem «"«•••■''■*•*•********«'*•*''*' 

5002 rem ' 4.0 basic - cr = 167:poke 59468,14 

5003 rem * c64 - cr = 204:poke 53272,23 

5004 rem ■****•'•*•*""•*•*"**•'•*•*'*• 
5005td$="":print:c = 

5010 printchrS(1 47) " Please Enter Todays Date (mm/dd/yy) : " ; 

5020gosub5150 

5030 ifd$ = chr$(27}then5005:rem (escape) key cancels entry 

5040 ifd$< ■■ " ord$> " 9 " then5020 

5050 td$ = td$ + d$:printd$; 

5060 iflen(td$) - 2thentd$(c) = td$:d = val(td$(c)):!d$ = " " :goto5080 

5070 goto5020 

5080 ifc = Othenprint " / " ;:ifd<1 ord>1 2then5005 

5090 ifc = 1 thenprint ' I" \ :ifd<l ord>31 then5005 

51 00 ifc - 2thenifd<83then5005:rem the years 1 983 to 1 999 

51 1 c = c + 1 :ifc<3then5020 

51 20 ld$ = td$(0) + td$(1) + td$(2) 

5130 return:rem * ' • this subroutine has returned w/ith the date in td$ 

51 40 rem ' * ' get a character from the keyboard * ' * 

5150 pokecr,0 
5160getd$:ifd$=""then5160 

5170 pokecr,1:return 

6000 rem * another date subroutine 

6001 rem ••**'•••'•*•***'*'•••'"•"**'' 

6002 rem - 4.0 basic- poke 59468, 14:cr=167 
6003rem -064 - poke 53272,23;cr = 204 

6004 rsm ****»***''*******'***'**'*''*' 

6005 printchr$(1 47) " Please Enter Today's Date (mmddyy) : " ; :gosub6035 
601 yr = val(rightS(td$,2)):ifyr<83then6005 

6015dy = val(mid$(td$,3,2));ifdy<1ornd>31then6005 

6020 mt = vat(left$(td$,2)}:ifmt<1 or nm>1 2then6005 

6025 return:rem ' • * this subroutine has returned with the date in td$ 

6030 rem " * get a string of six from the keyboard - * * 

6035 ld$ = " " :pokecr,0:fori = 1 to6 

6040 getd$:ifd$ - " " then6040 

6045 td$ = td$ + d$:printd$;:next:pokecr,1 :return 
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Status Interrogator 



Richard Evers 
Karl J. Hildon 



After performing a disk or (ape operation, a good program 
will always check the status. The status is the state of the 
input/Output system that is built in to every Commodore 
machine. It tells us if everything went OK, or if there is some 
type of error that should be dealt with. In user oriented 
programs, it is essential that errors not go undetected- 
Telling the user about problems thai occur as they occur, 
can help them avoid further complications. 

Not all errors are true errors. Some are system messages that 
are used by the program. For example, after a disk Scratch 
operation, the number of files scratched will be returned as 
part of the "error^^ message. Another is the End-of-File detect 
that is flagged in ST. Reporting these conditions to the user 
keeps him informed and conhdent about proceeding. 



This subroutine was designed as a base for your error 
routine. Error routines can be as individual as the program 
they live in. For example, a File Not Found error could 
mean trouble for one program, whereas another program 
would be expecting this to happen. It depends on the type of 
task you are trying to accomplish. 

The last part of the program interrogates DS$ - the Disk 
Status, If you have BASIC 2.0 (or C64) the operating system 
will treat DS$ like any other variable and the report will be 
invalid. In the Bits and Pieces section of this issue is an 
alternative. It's a substitute routine for reading the Error 
Channel from the disk when you don't have BASIC 4.0. 
(There's also an alternative to that for reading it in direct 
mode) A GOSUB to this routine would be inserted into line 
63015 instead of D$ = DS$. 



62997 
62998 
62999 
63000 
63001 
63002 
63003 
63004 
63005 
63006 
63007 
63008 
63009 
63010 
63011 
63012 
63013 
63014 
63015 
63016 



rem save" @0:st routine " ,8:verify " 0;st routine " ,8 

rem ' * richard evers / transactor magazine * * 

gosub63001;gosub63012:end 

rem '*' set up the variables for st *"'■ 

OK - Everything Appears To Be Just Right " 

Time Out On [EEE Write!" 

Time Out On IEEE Read!" 

Short Block (cassette read, load/verify) " 

Long Block (cassette read, load/verify)" 

Unrecoverable Read Error (cass read) / Mismatch (tape load/ver) " 

Checksum Error (cassette read, load/verify) " 

End Of File (cassette read) or EOl (IEEE) " 

End Of Tape (cass read, load/ver) or Device Not Present (IEEE) " 



s$(0) = 
s$(1) = 
s$(2) = 
s$(3) = 
s$(4) = 
s${5) = 
s$(6) = 
s$(7) = 
s$(8) = 



return 

rem * * * show st status * * * 

d$-"00, ok,00,00,0" 

a=^abs(st);b = 0:ifa = 0then63016 

ifa>2tbthenb = b + 1 :goto6301 4 

d$ = ds$:b = b^'1 

prints$(b):pnnt" Disk Status "d$:return 
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Universal Disk Routines 



Richard Evers 



When first writing these subroutines. 1 felt it best to write a 
separate article on each to explain the virtues to be found 
within. As time progressed and the subroutines were com- 
pleted, a strange feeling came over me, a feeling besE 
described as 'fatherly\ Each routine compliments each 
other so well that 1 felt it to be almost a sacrilege to consider 
breaking them up. In my slightly obtuse mind ! had assimi- 
lated this with spliUing up a very close knit family. This all 
adds up to a very strange analogy, and an obvious mental 
disorder. 

Well, they have been reunited and 1 am sure that you will 
soon agree with me that the split was best avoided. This 
joint effort has now been comprised of three major subrou- 
tines, each being fully capable of achieving independence at 
any time at all. But, with all three working together, you will 
find that you have a very powerful trio at your access- The 
choice isyours- 

The first subroutine is responsible for reading hies from 
disk. Program, sequential or USR files make no difference to 
this one, with reason being the method incorporated to 
handle characters read from disk. Normally, when accessing 
files from disk, trouble occurs with characters that pretend 
to be control characters. They usually can be identified by 
the fact that they are in reverse case and mess up the screen 
quite a bit. To get around this problem, 1 have ORd the 
ASCII value of the character brought from disk with 64, thus 
getting rid of any rude temptations it might have had. 

As with all disk operations, the program continues bringing 
in information until the disk status variable ST tells it 
otherwise. When this happens, the h!c is closed up and you 
are asked to press any key to continue. After complying with 
this request, you will be promptly brought back to the 
doorstep of the mini-menu. 

The second subroutine is responsible for reading specific 
sectors from disk. When you choose this option, you will be 
asked for the drive, track and sector numbers. Error check- 
ing has been incorporated into this section, so fouling it up 



will be slightly more difficult. I stress now thai i am not 
saying that it cannot be accomplished. As the old axiom 
goes, Mt is impossible to make anything fool proof, for fools 
are so ingenious'. Now. who am I to go against an old axiom. 

The program has been set up to loop through all 256 
characters located in the block. As in the file reading 
routine, I have OR^d the ASCII value of the character from 
disk with 64 to keep it non-lethal. This is something you 
will appreciate if ever you have read in a block yourself and 
ended up with weird screen gyrations due to the pseudo 
control characters. 

As with the file reading routine, when finished you will be 
asked to press any key to continue. When you have granted 
their request, you will find yourself once more propelled 
back through lime to the mini-menu section. 

The third and hnal member of this cartel is a block write 
routine, a routine that can be pretty deadly in the wrong 
hands. If ever you have wanted to leave a message on disk 
in a location that few would find, this will perform the trick 
for you. Remember to update the BAM later to allocate that 
location, or you may find your message missing in action 
with the advent of new files. 

The gel routine used in this section has been resurrected 
from elsewhere in this issue. All rude key strokes are 
eliminated from within, thus leUing only the less deadly 
prevail. The delete key has been left operative, giving you 
slight editing capabilities. When a string of 254 characters 
has been produced, which is one less than maximum, the 
bell will ring once to let you know the end is near. 

When the string is at its maximum of 255 characters, you 
will be asked whether or not to write it to disk. Any 
character but y will be taken as no. Due to the fact that 
there is only one string being written to disk, the write 
procedure takes very little time, and will have you back to 
the mini-menu before you expect. 
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rem * universal disk routines * 

1 rem ' 1541/2031/4040 drives - mt = 35:ms- 21 

2 rem ' 8050 drive - mt = 77:ms = 29 

3 rem • 8250 drive - mt = 1 54:ms = 29 

4 rem ' 80 col - mp = 80 

5rem - 4.0 basic - ss = 32768;ya = 216:xa= 198:cr=167:nc=158 

6 rem ' 40 col - mp = 40 

7 rem * vie + c64 -ss = 1024 :ya^214:xa = 211:cr = 204:nc=198 

8 rem - 22 col -mp-22 

100 print chr$(1 47); 

105 print "(a) file reader (b) block reader (c) block writer (q) quit "; 

llOpokecr.O 

115geta$:ifa$= ""then115 

1 20 pokecr, 1 :a = asc(a$)-64;ifa$ = " q " thenend 

125ifa<1 or a>3 then 100 

1 30 ona gosub 1 000, 2000, 3000 

135goto100 

1000printchr$(147); 

1 005 input " Filename, Drive Number " ;f$,d$ 

1 01 5 ifd$< ■' " ord$> " 1 " or len(f$)>1 6 then 1 000 

102Gprintchr${147);:open5,8.5,"' +d$+ " ; " +f$+ "" 

1025get#5,a$:ila$= ""thena$ = chr$<0) 

1 030 ila$ - chr$(1 3)thenprinta$;:goto1 040 

1035 printchr$(asc(a$)or64); 

1040 ifst = Othen 1025 

1045 close5:pokenc,0 

1 050 print:print" press any key to return " :wait nc,1 :pokenc,0:return 

2000pnmGhr${147); 

2005 input " Specify Drive, Track and Sector : " ;d,t,s 

2010ifd>1 ort>mtors>msthen20OO 

2015 opens, 8,5, "#":open15,8,15;print#15,"u1";5;d;t;s 

2020 fora = 0to255:get#5,a$:ifa$ = " " thenaS = chr$(0) 

2025pnntchr$(asc(a$)or64);:next:close15:pokenc,0 

2030 print:print" press any key to return ":wait nc,1:pokenc,0:return 

3000printchr${147); 

3005 input " Specify Drive, Track and Sector : " ;d,t,s 

301 ifd>1 or t>mt or s>ms then 3000 

3015printchr$(147);:gosub3045:print 

3020 input " Are You Sure (y) Yes or (n) No : " ic$:ifc$ - " y " then3030 

3025 gotoSOOO 

3030 open5,8,5, " # " :open1 5,8,1 5:print#1 5. " b-p " ;5;d; 

3035pnnt#5,b$;:print#15, "u2";5;d;t;s;:c!ose5:close15:pokenc.O 

3040 rem * * * start of get a string of 255 characters routine * • ' 

3045 b$="" 

3050a = ss + peek(xa) + peek(ya)*mp:pokea,peek(a) or 128 

3055 geta$:ifa$= " "then3055 

3060 poke a,peek(a) - 128:b - asc(aS) 

3065 ifb = 20then3090:rem ' delete - 

3070 ifb<32 or b>1 28 and b<160 then 3050 

3075 b$- b$ + a$:printa$;:c = len(b$):ifc = 255 thenreturn 

3080 ifc = 254thenprintchr$(7); 

3085 goto3050 

3090 b = len(b$):ifbthenb$ = mid$(b$. 1 , b-1 ) 

3095pnnl:printchr$(147)b$;:goto3050 
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Making Friends With SID 
Part 4 



Paul Higginbottom 

Dallas, Texas 



Have you recovered from the VERY wordy article last time? 1 
hope so, because this time, we're moving onto NEW ground. 

As mentioned at the end of the last article, we will now 
explore the capabilities of SID's filter, which has been 
mentioned a couple of times, but not explained fully. 

So, what is a FILTER? Lel^s make a comparison. You ve 
probably heard of. and maybe used, filler paper. They're 
used in almost all coffee percolators. The FlLTERing action 
of the paper in a coffee percolator, allows very fine particles 
of coffee to pass through, with the hot water, to form what 
we know as the drink; coffee, but does not allow the larger 
particles through, so that all the water may pass through the 
coffee itself, and into the container below. Essentially then, 
the filtering process is one where only PART of the 'some- 
things' involved are allowed to pass through, and the rest is 
not. In the case of the coffee filter, the water and fine coffee 
particles can pass through, while the larger ones cannot- A 
SOUND filter, is a process where only a certain portion (or 
portions) of the sound INPUT can pass through to the 
OUTPUT (your speaker, and then, your ears). 

How do we control a filter? Think of the potato grading 
machine. Such a machine can be 'programmed' to give us a 
certain selection of potatoes. If we want just the small ones, 
we allow the potatoes to roll over a tray which has holes in it 
with the diameter of the MAXIMUM size we want. The 
bigger we make the holes, the more we let through, until 
eventually, we would have holes so big that EVERYTHING 
could "PASS' through. How about if we wanted only medium 
sized potatoes? The holes would need to be the diameter of 
the MAXIMUM sized medium potatoe. But this would allow 



all the small ones through too, so we would let the potatoes 
falling through the first tray, roll onto a NEW tray with holes 
slightly smaller than the MINIMUM size. The smaller than 
our requirements would fall through the holes, and we 
would take WHATS ON THE TRAY (i.e„ not too big, and not 
too small). Similarly, the ones left on the top tray would be 
the 'large' ones. 

This is quite similar to the SID's sound filtering process. For 
example, if we only want the frequencies BELOW a given 
frequency, we use the LOW PASS MODE in SID. This only 
ALLOWS frequencies LOWer than a specihed frequency to 
PASS through to the output. Like the potatoe sorter, we have 
other modes to select different portions, also. We have 
BAND PASS MODE, which will allow a given amount above, 
and below, a specified frequency to pass through. We also 
have HIGH PASS MODE (I know, you guessed it!) which will 
only allow frequencies HlGHer than a specified frequency to 
pass through. 

The 'specified frequency" 1 keep referring to is known as the 
CUT-OFF FREQUENCY. Also. 1 have made it seem like the 
filter cuts out completely any sound immediately below, 
slightly below and above, or above (depending on whether 
it's LOW, BAND, or HIGH pass). This isn't so: let's take LOW 
pass mode for example: 

As shown in the diagram, the hlter suppresses frequencies 
above the cutoff frequency in proportion to how far above it 
they are. If a frequency is only slightly above the cutoff, it 
will be suppressed slightly. If a long way above it (relatively), 
it will be cut out altogether practically. 
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That's the theory; now the practice. After loading the final 
program from the last article into your Commodare-64, 
enter the following lines: 

Change line 540 which reads: 

540 poke sid + 24.15 
to; 

540 poke sid^24,15+16 

The addition of 16 to this POKE sets the filter to LOW PASS 
mode, thus suppressing frequencies higher than the cutoff. 

For BAND PASS, we would add 32 instead of 16 {suppress 

frequencies proportionate to how far above AND below the 

cutoff they arej. and for HIGH pass, we add 64 (suppress 

frequencies below the cutofQ. Modes can also be added, so 

we could have low AND high pass, so as to suppress 

frequcnciesAROUNDthecutoff(thisiscallcd NOTCH PASS, 
or BAND REJECT). 

Change line 550 which reads: 

550 read a,d,s,r,pw 

to: 

550 read a,d,s,r,pw,c,re 

The extra parameter C in the READ statement is our cutoff 
value which we will put in the DATA statement in line 600, 

The extra parameter RE in the READ statement is a parame- 
ter not mentioned before, called RESONANCE. The filter 
emphasizes frequencies (makes a sharper sound) AT the 
cutoff, and the degree to which it does this is known as 
■'resonance^'. We can select a value of 0-15 for this, I 
wouldn't worry if this doesn't make a lot of sense; it's use is 
only truly efffective in machine language programs, where 
the resonance can be changed rapidly to produce more 
complex harmonics. 
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Enter: 



6l0pokesid + 23J + re»16 



SID's hiter doesn't HAVE to filter ALL the voices- We can 
specify which of the three we wish to filter. Of course, in our 
"piano" program, we want all the sounds to be the same so 
we tell SID to filter ALL the voices. This is controlled i[i 
register 23. The value 7 equals 4 4-2+1. and each of the 
three numbers added are the ones to fiker the voices 1, 2, 
and 3 respectively. The addition of RE* 16 is adding the 
previously explained parameter: resonance. 
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Change line 600"s DATA to: 



eOOdataO. 10.0,0.800,2000, 15 



Attack 
Decay 
Sustain 
Release 
Pulsewidth 

Cutoff 
Resonance 



Make sure line 510 reads: 



510 voice = 0:oct = 3:wave = 32 



Enter: 



620ch = int(c/8):c!-c-ch*8 

630 poke Sid + 21 .clipoke sid + 22, ch 

These (wo lines set the cutoff frequency: C. The cutoff is 
specified in registers 21 and 22 and can range from 0-2047. 
Unlike the way we have specified values larger than 255 
before (i.e. 'lots of 256 + some other value between and 
255). (his one is specified in Uols" of 8 and some other value 
(remainder} between and 1, so we can calculate ^how 
many' 8^s by finding the integer value of the cutoff divided 
by 8 (ch = int(c/8)} and find the remainder by subtracting 
how many 8's multiplied by 8 from the cutoff (c-ch*8). 

Now To Experiment 

If you run the program with the changes mentioned it won't 
sound particularly different from what you heard before you 
made the changes. That^s because our filter mode is LOW 
PASS, and the cutoff is almost at MAXIMUM, therefore 
letting almost ALL the sound through since almost all the 
sound WILL have frequencies lower than the cutoff. If we 



change the value of the cutoff in line 600 from 2000 to say, 
1200 and run the program again, you should DEFINITELY 
be able to hear a difference. The sound seems "muffled^ 
This is because the filter has removed a lot of the high 
frequency parts (harmonics) of the sound. (Note: in between 
the two values used for cutoff here, you may have noticed 
that a GOOD piano sound could be made. Experiment!) 

If we now change then + 1 6 to -h 64 in line 540 so that we 
select HIGH PASS filter mode instead, and run the program 
again, we will hear that the 'lows" have gone from the 
sound, because only those frequencies higher than the 
cutoff are getting through wiEhoul being suppressed. Now 
change the cutoff in line 600 to 1800 and run the program 
again and you'll hear that we've REALLY chopped out any 
low harmonics, and it sounds more like a harpsichord. 

Try changing the OCT (octave) variable (between 1 and 6) 
and the WAVE (waveform ) variable (one of 16,32.64, 128) 
in line 510 and you should begin to see that the filler is 
probably THE feature which makes the SID surpass ANY 
sound chip around. 

If you really want to get adventurous, you might be able to 
work out how to change the cutoff dynamically (while the 
notes are being played) to REALLY produce some interesting 
effects, (like guitar ^'twangs" for example)- 

Next lime we'll be going from this "playing"" program lo one 
where we can put a tune into the program in DATA state- 
ments and thus have the computer play FOR us! 

The Commodore 64 Programmer's Reference Guide gives a 
LOT of information on the SID and programming it (as well 
as another 400 pages on LOADS of other interesting as- 
pects), so 1 advise you to gel a copy. 

Good luck! 
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1 00 fr = 3520 : rem a in top octave 

110 co = 2t(1/12) : rem constant multiplyer for next semitone 

1 20 for i = 1 to 9 : fr = f r/co : next : rem start fr at c by going back 9 semitones 

130 ss= 1 677721 6 : rem sid clock 

1 40 cs = 1 022730 : rem cpu clock 

1 50 fc - ss/cs : rem frequency multiplying constant 

200 dim f(7,1 1) : rem frequency array (octave, semitone) 

300for i = to 11 : rem cycle through 12 semitones 

310 s = fr'fc : rem calculate sid valueof semitone in top octave 

400 for j = 7 to step-1 : f(j,i) = s : s - s/2 

410 next : rem calc value for all 8 octaves 

420 fr = fr*co : rem go onto next semitone 

430 next : rem continue through all 12 semitones 

500 sid = 54272 

510voice-0 : oct = 3 : wave = 32 

520vm-7: hi -256 

530 for i = to 23 : poke sid + i,0 : next 

540 poke sid + 24, 15 + 16 

550 read a,d,s,r,pw,c,re 

560 for i = to2 : index = sid + i*vm 

570 poke index + 5, a' 16 + d 

580 poke index + 6,s*16 + r 

590 next 

600 data 3, 1 0,0,0,800,2000, 1 5 

610pokesid + 23,7 + re'16 

620ch = int(c/8):cl=c-ch'8 

630 poke sid + 21 ,cl : poke sid + 22, ch 

700 k$= "q2w3er5t6y7ui9o0p@-'\f 

710dJmk(255) 

720fori=1 tolen(k$) 

730k(asc(mid$(k$,i,1))) = i 

740 next 

750 print: print "23 567 90 -\ 

760 print : print "qwertyuiop@*t 

800 get a$ : if a$ = " " goto 800 

81 key = k{asc(a$))-1 : if key<0 goto 800 

820 if key>1 1 then frq = f(oct + 1 , key- 1 2) : goto 835 

830frq = f(oct,key) 

835 fh = int(frq/hi) : fl = frq-fh * hi 

840 index = sid + voice* vm 

850 poke index.fl : poke index + 1 ,fh 

860 poke index + 4, wave ; poke index + 4, wave + 1 

870 voice = voice + 1 : if voice>2 then voice = 

880 goto 800 
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Making Friends With SID Paul Higginbottom 
Parts 



As I said at the end of the last article, this, the last in this 
series of articles, will add lines to our program to let us put a 
tune into the computer, in DATA statements, which the 
computer will READ and play when we RUN the program, 
instead of us playing a tune on the keyboard as our program 
stands at present. 

To do this, all we have to do is to change the program to read 
DATA statements instead of the keyboard, and play the 
notes accordingly, 

A logical formal for the DATA is 3 numbers per note: octave, 
semitone, and duration of the note. The modifications to this 
program will not allow 3 part tunes to be played, it will 
simply be a modification to read the notes from DATA 
instead of our "typed'' input, playing the notes in voices one, 
two, and three, and then back to one, as explained in Part 4. 

LOAD the final program from Part 4. and delete lines 700 to 
760 (simply enter the line numbers, and press RETURN; the 
numbers being 700. 710, 720, 730, 740, 750, and 760), 
These lines were used to create an array of numbers corres- 
ponding to the ASCII codes of the keys in our keyboard 
layout, as well as printing the layout on the screen. 

At the start of our tune DATA we'll have a '^tempo'' (the 
speed the notes will be played and read). So enter: 

770 read tempo 

Our playing loop will replace some of the lines in the 
'playing' section Oines 800 onward)- 

Change line 800 from: 

800geta$:ifa$=''" goto 800 

To: 

800 read oct,sem,dur:if oct<0 goto 900:rem read 

note and exit if end 

This line changes the note input from keyboard to DATA 
statements, and checks to see if it s reached the end of the 
tune, by seeing if the OCTave variable is negative (that s 
how we'll mark the end of a tu ne in our DATA), It will branch 
to line 900 if (he end is reached. 

Delete lines 810 and 820 which used to work out the key 
position from the A$ input in the GET statement, and which 
we obviously no longer need. Change 830 from: 



830frq = f(oct,key) 

To: 

830frq = f(ocl,sem) 

This simply changes the variable for the semitone subscript 
from KEY (which we no longer use) to SEM, the value of 
which was READ from the DATA in our new line 800, 

(Lines 835, 840. 850. 860. and 870 will work just as they did 
before.) Enter: 

875 for i = ] to dur*tempo:next 

This IS our timekeeping line, which waits for the duration of 
the note (DUR) multiplied by our overall TEMPO (our first 
DATA value, read in 770), 

900fori = l tolOOO:next 
910 poke sid + 24,0:end 

Line 900 is branched to from line 800 when the end of the 
DATA is reached, and it simply waits for approximately one 
second (an 'emply" loop) to allow the last note to end. 910 
turns off the volume because the tune has finished and the 
program ENDs. 

Well make line 1000 contain the tempo, and lines 2000 
onward the tune DATA, and add a line 9000 with the DATA 
containing a negative value for OCT to indicate the end of 
the tune (that gives us TONS of space for a tune!!). Thus, 
enter: 

1000 data .5 : rem tempo 

9000 data -1 ,0.0 : rem end of tune 

Don^t faint when you see the next TON of lines, you don't 
have to enter them all. 1 went 'mad' (how could 1 GO mad, I 
am, right?!) one night and worked out all the DATA for 
Bach's first Prelude. As the sun rose, I ran the program and it 
was (literally) music to my ears. You can enter as much of 
this DATA as you want, but I'm sure that you4l want to hear 
the whole tune, as 1 did! 

As 1 said at the start of this article, this is to be the last in my 
mini-series on the SID. If youVe followed them from the 
first, hopefully you're now a little more aware of the capabili- 
ties of the our friend SID. 

Happy programming! 
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Data for Bach's 
Prelude in C(#1): 
1000 rem tempo 
1000 data ,25 
2000 rem measure 1 
2010data4.0.120 
2020data4,4,120 
2030data4,7,120 
2040 data 5,0, 120 
2050 data 5,4, 120 
2060 data 4,7,120 
2070 data 5,0,120 
2080 data 5,4,120 
2090 data 4,0,120 
21 00 data 4,4, 120 
2110data4,7,120 
2120 data 5,0,120 
2130 data 5,4, 120 
2140data4,7,120 
21 50 data 5,0, 120 
2160 data 5.4,120 
21 70 rem measure 2 
2180data4,0,120 
2190 daia4, 2,120 
2200 data 4,9, 120 
2210data5,2,120 
2220 data 5,5, 120 
2230data4,9,120 
2240 data 5.2,120 
2250 data 5,5,120 
2260 data 4,0,1 20 
2270 data 4,2,1 20 
2280 data 4,9,120 
2290 data 5,2,120 
2300 data 5,5,120 
2310data4.9,120 
2320 data 5,2,120 
2330 data 5,5.120 
2340 rem measure 3 
2350 data 3,11, 120 
2360data4,2,120 
2370data4,7,120 
2380 data 5,2, 120 
2390 data 5,5,120 
2400 data 4,7, 120 
2410data 5,2,120 
2420 data 5,5,120 
2430 data3,11, 120 
2440data4,2,120 
2450 data 4,7,120 
2460 data 5.2,120 
2470 data 5,5,1 20 
2480data4,7,120 
2490 data 5,2,1 20 
2500 data 5.5,120 
2510 rem measure4 

(same as 1) 
2520 data4,0, 120 
2530data4,4.120 



2540data4,7,120 
2550 data 5,0,120 
2560 data5,4, 120 
2570data4,7,120 
2580 data 5,0, 120 
2590 data 5,4,120 
2600 data 4,0,120 
2610data4,4,120 
2620data4,7,120 
2630 data 5,0, 120 
2640 data 5,4, 120 
2650data4,7,120 
2660 data 5,0,120 
2670 data 5,4, 120 
2680 rem measure 5 
2690 data 4,0,120 
2700 data 4,4,120 
2710 data 4,9,120 
2720 data 5,4,120 
2730 data 5,9,120 
2740data4,9,120 
2750 data 5,4,120 
2760 data 5,9,120 
2770 data 4,0,120 
2780 data 4,4, 120 
2790data4,9.120 
2800 data 5,4,1 20 
2810data5,9,120 
2820 data 4,9, 120 
2830 data 5,4,120 
2840 data 5,9,120 
2850 rem measure 6 
2860data4,0,120 
2870dala4,2,120 
2880 data 4,6,1 20 
2890data4,9,120 
2900 data 5,2,120 
2910 data 4.6, 120 
2920 data 4,9,120 
2930 data 5,2,120 
2940 data 4,0,120 
2950 data 4,2, 120 
2960 data4,6, 120 
2970 data 4,9,1 20 
2980 data 5,2, 120 
2990 data 4,6, 120 
3000data4,9,120 
3010 data 5,2, 120 
3020 rem measure 7 
3030 data 3, 11,120 
3040 data 4.2,120 
3050 data 4,7,120 
3060 data 5,2,120 
3070 data 5,7,120 
3080data4,7,120 
3090 data 5,2,120 
3100 data 5,7,120 
3110data3,11,120 
3120 data4,2, 120 



3130 data 4,7.120 
3140 data 5,2,120 
3150 data 5,7,120 
3160 data4, 7,120 
3170 data 5,2, 120 
3180 data 5,7,120 
3190 rem measures 
3200data3,11,120 
3210data4, 0.120 
3220 data 4,4,1 20 
3230data4,7,120 
3240 data 5,0,120 
3250 data 4,4, 120 
3260 data 4,7,120 
3270 data 5,0,120 
3280 data 3,11, 120 
3290 data 4,0, 120 
3300 data 4,4,120 
3310data4,7,120 
3320 data 5,0,120 
3330 data 4,4,120 
3340 data 4,7,120 
3350 data 5,0,120 
3360 rem measure 9 
3370 data 3,9,120 
3380 data 4,0,120 
3390 data 4,4,120 
3400 data 4,7,120 
3410 data 5,0,120 
3420 data 4,4,120 
3430data4,7,120 
3440 data 5,0,120 
3450 data 3,9,120 
3460 data 4,0,120 
3470 data 4,4,120 
3480 data 4,7.120 
3490 data 5,0.120 
3500 data4,4. 120 
3510data4,7,120 
3520 data 5,0,120 
3530 rem measure 10 
3540 data 3,2,120 
3550 data 3,9,120 
3560 data 4,2,120 
3570 data 4,6,120 
3580 data 5.0.120 
3590 data 4,2,120 
3600 data 4,6,120 
3610 data 5,0,120 
3620 data 3,2,1 20 
3630 data 3,9, 120 
3640 data 4,2,120 
3650 data 4.6.120 
3660 data 5,0,120 
3670 data 4,2,120 
3680 data 4,6.120 
3690 data 5,0,120 
3700 rem measure 1 1 
3710 data 3,7,120 



3720data3,11,120 
3730 daia4, 2,120 
3740 data 4,7,1 20 
3750 data 4,1 1,120 
3760 data 4,2,120 
3770 data 4.7,120 
3780 data 4, 11,120 
3790data3,7.120 
3800 data 3, 11, 120 
3810data4,2,120 
3820 data 4,7,120 
3830data4,11,l20 
3840 data 4,2,120 
3850data4,7,120 
3860data4,11,120 
3870 rem measure 12 
3880 data 3,7,120 
3890 data 3,10,120 
3900 data 4,4,120 
3910 data 4,7, 120 
3920 data 5, 1,1 20 
3930 data 4,4,1 20 
3940data4,7,120 
3950 data 5,1, 120 
3960 data 3,7,120 
3970 data 3, 10, 120 
3980 data 4,4, 120 
3990 data 4,7,120 
4000 data5, 1,120 
4010data4,4,120 
4020 data 4,7.1 20 
4030 data 5, 1,1 20 
4040 rem measure 13 
4050 data 3,5, 120 
4060 data 3,9,120 
4070 data 4.2,120 
4080data4,9,120 
4090 data 5.2.120 
4100 dala4,2, 120 
4110data4,9,120 
4120data5,2,120 
4130 data 3, 5,120 
4140data3,9,120 
41 50 data 4,2, 120 
41 60 data 4,9, 120 
4170data5,2,120 
4180data4,2,120 
4190data4,9,120 
4200 data 5,2,1 20 
4210 rem measure 14 
4220 data 3,5, 120 
4230 data 3,8, 120 
4240 data 4,2, 120 
4250 data 4,5, 120 
4260data4,11,120 
4270 data 4,2,120 
4280data4,5,120 
4290data4,11,120 
4300data3,5,120 



4310data3,8,120 
4320 data 4,2, 120 
4330data4,5,120 
4340 data 4, 11,120 
4350data4,2,120 
4360 data 4,5.120 
4370data4,11,120 
4380 rem measure 15 
4390 data3,4, 120 
4400 data 3,7,120 
4410data4, 0,120 
4420data4,7,120 
4430 data 5,0,120 
4440 data 4,0,120 
4450data4,7,120 
4460 data 5,0,120 
4470data3,4,120 
4480data3,7,120 
4490 data 4,0, 120 
4500data4,7,120 
4510data5,0,120 
4520 dala4, 0,120 
4530data4,7,120 
4540 data 5.0,120 
4550 rem measure 16 
4560data3,4,120 
4570 data 3,5. 120 
4580 data 3.9.120 
4590 data 4,0, 120 
4600 data 4,5, 120 
4610data3,9,120 
4620data4,0,120 
4630data4,5,120 
4640 data3,4, 120 
4650data3,5,120 
4660 data 3,9, 120 
4670 data 4,0, 120 
4680 data 4,5,120 
4690 data 3, 9, 120 
4700 data 4,0,120 
4710data4,5,120 
4720 rem measure 1 7 
4730data3,2,120 
4740 data 3,5,120 
4750data3,9,120 
4760data4,0,120 
4770data4,5,120 
4780 data 3,9, 120 
4790 data 4,0,120 
4800 data 4,5,120 
4810data3,2,120 
4820data3,5,120 
4830data3,9,120 
4840 data 4,0,1 20 
4850data4,5,120 
4860 data 3,9, 120 
4870 data 4,0, 120 
4880 data 4,5, 120 
4890 rem measure 18 
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4900 data 2,7,120 
4910data 3,2,120 
4920 data 3,7,120 
4930 data 3, 11, 120 
4940data4,5,120 
4950 data 3,7,1 20 
4960 data 3, 11, 120 
4970data4,5,120 
4980data2,7,120 
4990data3,2.120 
5000 data 3,7.1 20 
5010data3,11,120 
5020data4,5,120 
5030 data 3,7,120 
5040 data3,11, 120 
5050 data 4.5,1 20 
5060 rem measure 19 
5070 data 3,0,120 
5080 data 3,4, 120 
5090data3,7,120 
5100 data 4,0,120 
5110data4,4,120 
5120data3,7,120 
5130 data4, 0,120 
5140data4,4,120 
5150 data3, 0,120 
5160data3,4,120 
5170 data 3,7,120 
5180 data4, 0,120 
5190data4,4,120 
5200 data 3,7,120 
5210data4, 0,120 
5220 data 4,4, 120 
5230 rem measure 20 
5240 data 3,0,120 
5250 data 3,7,120 
5260data3,10,120 
5270 data 4,0,1 20 
5280data4,4,120 
5290 dataS, 10,120 
5300 data 4,0,120 
5310data4,4,120 
5320 data3,0, 120 
5330 data 3,7,120 
5340 data 3, 10, 120 
5350data4,0.120 
5360 data 4,4,1 20 
5370 data3, 10,120 
5380 data4, 0,120 
5390 data4,4, 120 
5400 rem measure 21 
5410data2,5,120 
5420 data 3,5,120 
5430 data 3,9,120 
5440 data 4,0, 120 
5450 data 4,4,1 20 
5460 data 3,9, 120 
5470 data 4,0, 120 
5480 data 4,4,120 



5490 data 2,5,1 20 
5500 data 3, 5, 120 
5510 data 3,9,120 
5520 data4, 0,120 
5530 data 4,4,1 20 
5540 data 3,9,120 
5550 dala4, 0,120 
5560 data4,4, 120 
5570 rem measure 22 
5580 data 2,6,120 
5590 data 3, 0,1 20 
5600 data 3,9, 120 
5610data4,0,120 
5620 data 4,4,1 20 
5630data3,9,120 
5640 data 4,0,120 
5650 data 4,4,1 20 
5660 data 2,6,1 20 
5670 data 3,0,1 20 
5680 data 3, 9, 120 
5690 data4, 0,120 
5700 data 4.4,1 20 
5710data3,9,120 
5720 data 4,0, 120 
5730 data 4,4.1 20 
5740 rem measure 23 
5750data2,8,120 
5760data3,5.120 
5770data3,n,120 
5780 data 4,0, 120 
5790data4,2,120 
5800 data 3, 11, 120 
5810 data4, 0,120 
5820 data 4,2, 120 
5830 data 2,8,120 
5840 data 3,5,1 20 
5850data3,ll,120 
5860 data 4,0, 120 
5870data4,2,120 
5880data3,ll,120 
5890 data 4,0, 120 
5900data4,2,120 
5910 remmeasure24 
5920 data 2,7,120 
5930 data 3,5,1 20 
5940 data 3,7,120 
5950data3,11,120 
5960 data 4,2, 120 
5970data3,7,120 
5980 data3,n, 120 
5990 data 4,2, 120 
6000 data 2,7,1 20 
6010data3,5,120 
6020 data 3,7,120 
6030data3,11,120 
6040data4,2,120 
6050data3,7,120 
6060 data 3,1 1,1 20 
6070data4,2,120 



6080 rem measure 25 6670data 4.6,120 
6090 data 2,7,120 6680 data 2,7,120 



6100 data 3,4,120 
6110data3,7.120 
6120data4,0,120 
6130data4,4,120 
6140data3,7,120 
6150 data4,0, 120 
6160 data 4,4,120 
6170 data 2, 7, 120 
6180data3,4,120 
6190data3,7,120 
6200 data 4, 0,1 20 
6210data4,4,120 
6220 data 3,7,120 
6230 data4,0, 120 
6240 data 4,4,120 



6690 data 3,3,120 
6700data3,9,120 
6710data4.0,120 
6720 data 4,6,120 
6730 data 3,9, 120 
6740 data 4,0, 120 
6750 data 4.6,120 
6760 rem measure 29 
6770 data 2,7,120 
6780 data 3,5,120 
6790 data 3,7,1 20 
6800 data4, 0,120 
6810data4,7,120 
6820 data3, 7,120 
6830 data 4,0, 120 



6250 rem measure 26 6840 data 4,7,120 
6260 dala 2,7,120 6850 data 2,7, 120 



6270 data 3,2,1 20 
6280 data 3,7,120 
6290 data 4,0,120 
6300data4,5,120 
6310data3,7,120 
6320 data 4,0,120 
6330 data 4,5, 120 
6340 data 2,7.120 
6350 data 3,2,120 
6360 data 3,7,120 
6370 data 4,0,120 
6380 data 4,5,1 20 
6390 data 3,7.120 
6400 data 4,0,120 
6410 data 4,5,120 



6860data3,5,120 
6870data3,7,120 
6880 data 4,0, 120 
6890 data 4,7, 120 
6900data3,7,120 
6910 data 4,0, 120 
6920data4,7,120 
6930 rem measure 30 
6940 data 2,7, 120 
6950 data 3,2,120 
6960data3,7,120 

697adata4,0,120 
6980 data 4,5,120 
6990 data 3,7,120 
7000 data4,0, 120 



6420 rem measure 27 7010 data 4, 5, 120 
6430 data 2,7,120 7020 data 2,7,120 



6440 data 3,2,120 
6450 data 3,7,120 
6460 data 3,11,120 
6470 data 4,5,120 
6480 data 3,7,120 
6490 data 3,11,120 
6500 data 4,5,120 
6510 data 2,7,120 
6520 data 3,2,120 
6530 data 3,7,120 
6540 data 3, 11, 120 
6550 data 4,5,1 20 
6560 data 3,7,120 
6570 data 3, 11, 120 
6580data4,5,120 



7030 data 3,2, 120 
7040 data 3,7,1 20 
7050 data 4,0, 120 
7060data4,5,120 
7070data3,7,120 
7080 data4,0, 120 
7090 dala 4,5, 120 
7100 rem measure 31 
7110data2,7,120 
7120 data 3,2,120 
7130 data 3,7,120 
7140data3,11,120 
7150dala4,5,120 
7160 data 3,7,120 
7170 data 3, 11, 120 



6590 rem measure 28 7180 data 4,5,120 
6600 data 2,7,120 7190 data 2,7,120 



6610 data 3,3,1 20 
6620 data 3,9,1 20 
6630 data4, 0,120 
6640 data4,6, 120 
6650 data 3,9,1 20 
6660 data 4,0, 120 



7200 data 3,2, 120 
7210data3,7,120 
7220 data 3, 11, 120 
7230data4,5,120 
7240 data 3,7,1 20 
7250 data 3, 11, 120 



7260data4,5,120 
7270 rem measure 32 
7280 data 2,0,120 
7290 data 3,0,1 20 
7300 data 3,7,120 
7310data3,10,120 
7320 data 4.4,120 
7330 data 3,7,1 20 
7340 data 3,10,120 
7350data4,4,120 
7360 data 2,0,120 
7370 data 3,0,1 20 
7380 data 3,7,120 
7390 data3, 10,120 
7400 data 4,4,1 20 
7410data3,7,120 
7420data3,10,120 
7430 data4,4, 120 
7440 rem measure 33 
7450 data 2,0, 120 
7460 data 3,0,120 
7470 data 3,5,120 
7480 data 3,9,1 20 
7490 data4, 0,120 
7500data4,5,120 
7510data4, 0,120 
7520 data 3,9,120 
7530 data4, 0,120 
7540data3,9.120 
7550 data 3,5,1 20 

7560 data 3,9, 120 
7570 data 3,5, 120 
7580 data 3,2,1 20 
7590 data 3,5,120 
7600 data3,2, 120 
761 rem measure 34 
7620 data 2,0,120 
7630data2,11,120 
7640data4,7,120 
7650data4,11.120 
7660 data 5,2,120 
7670 data 5,5.120 
7680 data 5,2,1 20 
7690 data4,11, 120 
7700 data 5.2,120 
7710data4,11,120 
7720dala4,7,120 
7730data4,11,120 
7740 data4,2, 120 
7750data4,5,120 
7760 data 4,4, 120 
7770data4,2,120 
7780 rem measure 35 
7790 data 4,4,0 

7800 data 4,7.0 
7810 data 5,0,0 
7820 data 0,0,-9999 
9000 data -1,0,0 
9010 rem end of tune 
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Put Those 

Function Keys To Work! 



Darren J. Spruyt 
Gravenhurst, Ont. 



Here's a handy litlle utility for the Commodore 64. This 
utility lets you define any of the eight function keys as a line 
of BASIC code, a command such as LIST or RUN, or 
whatever you want. 

The program is written in machine language and it operates 
off the internal interrupts. These interrupts occur every 
sixtieth of a second and they allow the keyboard to be 
scanned so that if one of the function keys is pressed, it can 
be detected - 

Listing 1 is the BASIC loader for the machine code. Type it in 
and RUN it. If you have made a mistake, the program will 
display ''Checksum error''. Once it is fixed, SAVE it and 
VERIFY it. 

Lisitng 2 is the disassembly of the program. Along with the 
comments, it should be very easy to follow. 

The instructions displayed by the program are a little rough, 
so let's go over them. 



Type: SYS 49152 and press Return 



A display reading "Function 1" should appear. Below it 
there should be a prompt ("?") with the flashing cursor 
beside it. You can now enter the line of BASIC code or 
whatever you want to be assigned to function key 1 , When 



finished, press Return- 

"Function 2" should now be displayed, along with the 
prompt and the cursor, YDu can now type what you want 
this key to become and press Return. Continue this until all 
eight keys have been defined. After the eighth key, 
"READY" will be displayed and you are back in direct 
mode. 

The function keys will now execute whatever is stored in 
them. If you have not defined a certain function key. it will 
simply give you the "READY." message. With a program 
running, the function keys will behave normally. 

To re-define a key, enter SYS 49152 and hit return. Like 
before, you will be prompted for the definition. Hit Return 
and the old dehntion will not be changed, or, enter the new 
definition. 

One last thing; the interrupt needs to be set back to its 
pristine condition before any tape 1/0 will work, 
RUN-STOP/RESTORE will do the trick. To get the utility 
back to work, SYS 491 52 and press Return (8 times) until the 
"READY." is displayed. 

This is all you need to know to use this program. So to save 
yourself some work, just put this program to work. ! wrote it 
for myself, and for just that reason. 1 hope you will enjoy it. 
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Listing 1 : 



1 print " ^^ c-64 function key definer 

1 5 print " by darren spruyt of 

20 print" gr avenhurst, Ontario, canada 

25 print " BBlH setting up 

30forj = 0to227:readb:x = x+b:poke49152 + j,b:poke1024,b:nextj 

40 if x<> 30606 then print "checksum error" :stop 

45 for I = 0to7:readb:pokeb,128:pokeb + 1 ,0:pokeb + 3,0:next 



ready to use. 

sys 49152 to define the function keys." 
to use, just press the function key. " 
to re-define, sys 491 52. to skip over 

re-defining a key, just press return 

at its number, " 




50 print 
60 print 
70 print 
80 print 
90 print 
95 print 

99 end 

100 data 162, 0,134,151, 32,131 
110data192, 173, 0, 2,240, 3 
120data 32,171,192,166,151,232 
130 data 134, 151,224, 8, 208,236 
UOdata 32, 87,192, 76, 116, 192 
150 data 36, 157, 48, 3, 76, 49 
160data234, 165, 215, 201, 133,144 
170 data247, 201,141, 176,243,162 
180data250, 154, 165, 215, 56,233 
190 data 133, 170, 189,203, 192, 170 
200 data 189, 211, 192,133, 122, 189 
210data219, 192, 133, 123, 169,255 
220data133, 58,164.211,165,206 
230 data 145, 209, 169, 1, 133,204 
240 data 76,225,167,162, 0,189 
250data211,192, 133, 34,189,219 
260 data 192, 133, 35,160, 1,169 
270 data 153, 145, 34,200,169, 58 
280 data 145, 34,232,224, 8,208 
290data230, 96,120,169, 30,141 
SOOdata 20, 3, 169, 192, 141, 21 
310data 3, 88, 76.116,164,169 
320 data 160, 160, 192, 32, 30,171 
330data169, 0,166,151,232, 32 
340 data 205, 189, 169, 13, 32,210 
350 data 255, 32,249,171,162, 
360data 32,126,165, 96, 13, 70 
370 data 85, 78, 67, 84, 73, 79 
380 data 78, 32, 0,166. 151,189 
390data211, 192, 133, 34,189,219 
400 data 192, 133, 35,160, 2,200 
410 data 185, 253, 1,145, 34,200 
420 data 200, 145, 34,136,136,185 
430 data 253, 1,208,239, 96, 
440 data 2. 4, 6, 1, 3, 5 
450 data 7,255, 79,159,255. 79 
460 data 159, 255, 79,193,194.194 
470 data 1 94, 1 95, 1 95, 1 95, 1 96, 234 
500 data 49666, 49746, 49826, 49922 
510 data 50002, 50082, 50178, 50258 
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Listing 2 








c06c 
c06e 


sta ($22), y 
nx 


;anythingese 


cOOO 


dx 


#$00 


ithis routine 


c06f 


cpx #$08 




c002 


stx 


$97 


; s for the 


c071 


bne $c059 




c004 


jsr 


$c083 


;inputing of the 


c073 


rts 


;returnfrom sub 


c007 


da 


$0200 


; inefor def n- 


c074 


sei 


;this routine 


cOOa 


beq 


$cOOf 


;ing. it gets 


c075 


da #$1e 


;sels up the 


cOOc 


sr 


JcOab 


;input, then 


c077 


sta $0314 


: nterrrupt 


cOOf 


dx 


$97 


;checks or no 


c07a 


da #$cO 


; vector to go to 


cOII 


inx 




:inpuf, then 


c07c 


sta $0315 


;the correct 


c012 


six 


$97 


;transfer(if 


c07f 


ci 


; memory 


c014 


cpx 


#$08 


;req.) to the 


c080 


mp $a474 


; ocalion 


c016 


bne 


$c004 


;meniory secton 


c083 


da #$aO 


;setupto print 


c018 


jsr 


$c057 


;for the chosen 


0085 


dy #$c0 


;the message 


cOlb 


jmp 


$c074 


ifunction key 


c087 


sr Sable 


; "function " 


cOle 


bit 


$9d 


;test direct 


c08a 


da #$00 


.print the 


c020 


ami 


$c025 


;go i direct 


c08c 


dx $97 


;fixed-point 


c022 


mp 


$ea31 


;cont with int. 


cOBe 


inx 


; number 


c025 


da 


$d7 ; 


icurrentchar 


c08f 


sr $bdcd 


:next 


c027 


cmp 


#$85 ; 


.check ow 


c092 


da #$0d ; 


■print a return 


c029 


3GC 


$c022 ; 


go if ower 


c094 


jsr $ffd2 ; 


character 


c02b 


cmp 


#$8d ; 


check high 


c097 


jsr $ab 9 ; 


input a ne 


c02d 


DCS 


$c022 ; 


go if higher 


c09a 


dx #$00 ; 


and crunch 


c02 


Idx 


#$fa ; 


.set stack to 


c09c 


jsr $a57e ; 


the tokens 


c031 


txs 




cear 


c09f 


rts ; 


.end of routine 


c032 


da 


$d7 ; 


get char 


cOaO 


Od 46 55 i 


"<return>fu" 


c034 


sec 




subtract to get 


cOa3 


4e 43 54 ; 


" net " 


C035 


sbc 


#$85 ; 


range 0-7 


c0a6 


49 4f ; 


tr ^ riri 

lO 


c037 


tax 






c0a8 


4e 20 00 ; 


"n "0-end 


C038 


da 


$c0cb,x : 


put through 


cOab 


dx $97 ; 


th s routine 


c03b 


tax 




convertabe 


cOad 


da $c0d3,x ; 


transfers 


c03c 


da 


$c0d3,x ; 


get oand high 


cObO 


sta $22 ; 


the contents 


cOSf 


sta 


$7a ; 


bytes or 


c0b2 


da $cOdb,x ; 


of the inpu 


c041 


da 


$c0db,x : 


chrget indirect 


cOb5 


sta $23 ; 


buffer to the 


C044 


sta 


$7b ; 


address 


cOb7 


dy #$02 ; 


se ected 


c046 


da 


#$ff : 


set to simuate 


c0b9 


iny ; 


memory part, 


c048 


sta 


$3a ; 


direct mode 


cOba 


da $01 d,y ; 


for the 


c04a 


dy 


$d3 ; 


restore char 


cObd 


sta ($22) ,y ; 


ndvdua 


c04c 


da 


See ; 


to where 


cOb 


iny ; 


function keys 


c04e 


sta 


($d1),y ; 


the cursor 


cOcO 


iny ; 




c050 


da 


#$01 ; 


was and 


cOcI 


sta ($22) ,y ; 




c052 


sta 


$cc ; 


turn off 


c0c3 


dey ; 




c054 


mp 


$a7e1 ; 


execute 


c0c4 


day ; 




c057 


dx 


#$00 ; 


this routine 


cOc5 


da $01fd,y ; 




c059 


da 


$c0d3,x ; 


sets up parts 


c0c8 


bne $c0b9 ; 




c05c 


sta 


$22 ; 


of the memory 


cOca 


rts ; 


return from sub 


c05e 


da 


$cOdb.x ; 


with the code 


cOcb 


00 02 04 06 ; 


convertabe 


c061 


sta 


$23 ; 


for a) "print" 


cOcc 


01 03 05 07 ; 




c063 


dy 


#$01 ; 


and b) : 


cOd3 


ft 4f 9f ff ; 


0- byte tab e 


c065 


da 


#$99 ; 


so execution 


cOd7 


4 9f ff 4f 




c067 


sta 


($22),y ; 


starts with a 


cOdb 


Cl c2 c2 c2 ; 


hi-bytetabe 


c069 


my 




ine being 


cOdf 


c3 c3 c3 c4 




c06a 


da 


#$3a ; 


printed be ore 
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A Simple Disk Copier 
For The Commodore 64 



Jim Butterf ield 
Toronto, Ont. 



If you have a disk on your Commodore 64. program copying 
may no? seem to be much of a task. A simple LOAD followed 
by a SAVE would seem to do all that is necessary. 

There are some programs that don't cooperate, however. 
For example, there's a class of programs called "boof" (or 
bootstrap) programs that stitch chunks of memory together 
to make a system of programs which work together. These 
programs that make up the system don't look like ordinary 
Basic; so LOAD and SAVE, which were designed for Basic, 
wonH work right. There are other programs which are 
cantankerous copiers, too: programs containing machine 
language, for example- 
Sequential files can't be LOAD-ed. so you can't copy them 
with LOAD and SAVE. 

You can often copy a disk by using a backup program. This 
copies everything over to a new disk. It moves this informa- 
tion over, disk sector by disk sector, so you must copy the 
whole disk. That's useful, but sometimes you don't want the 
whole thing. . . just a program or file or two. 

Here's a program that will copy a file for you. If you want to 
copy two files, run the program twice. You must know the 
name of the program you want to copy: COPYFILE doesn't 
read the directory for you. It's just a simple minimum 
program to do the job, 

COPY FILE has a bonus that goes with its simplicity, how- 
ever. Since this small program doesn't take up much space, 
it can use lots of memory to do the copying; so it can copy 
big files. If your Commodore 64 doesn't have any other 
systems loaded into it - no DOS wedge program, no IEEE 
interface - you can copy files up to 50K in size. If you are 
using the "wedge" or an interface, you1! have to restrict 
yourself to smaller programs - probably not over 35K or so. 
But that's still plenty big. 



Running The Program 

Before running COPY FILE, make sure you have two disks 
ready: the one you want to copy from, and the one to which 
you want to write the copy. Be sure you know the names of 
the files: make a note if necessary. The "destination" disk 
must be formatted; it may already contain programs and 
files, since the new material will be added. 

Load and run COPY FILE. You'll be asked for the file type. 
You may answer: S for Sequential, U for User (a rare file 
type), or P for Program, Program COPY FILE will not copy 
relative files. 

Next, you'll be asked for the name of the program or file you 
wish to copy. Type in the name, and be sure it's correct. 
Press RETURN and COPY FILE will look for the file you 
have named. 

If it can't find the file, or if it sees other problems, it will reply 
NO GO, Otherwise, it will ask OTHER DISK READY? Take 
the old disk out of the drive, put the new disk in, and answer 
anything: a letter Y followed by a RETURN will do the trick. 
The file will now be written to the new disk. 

Watch for signs of disk errors. The destination disk might 
have problems: perhaps it hasn't been formatted, or has a 
write protect tab in place, or already has a file of that name. 
or has't enough room for the program you wish to copy. In 
any of these cases, the disk error light will flash. 

But normally, the file will be copied. To copy another, say 
RUN and COPY FILE will do it again. 

Where's The Program? 

I'd like to list program COPY FILE for you and let you type it 
in. . , but there's a problem. 



Th« Transactor 



60 



VoJume 4, Usue Q6 



The program contains a machine language part. That's 
tricky to type in, even if you have a machine language 
monitor. The smallest mistake, and you're out of business, 

SoI'vedecided to go a different route. Instead of having you 
type in the program, IVe sel things up so that the program 

will be written for you. The listing contains -not COPY FILE 
- but a program generator that will produce COPY FILE 
for you. 

Whal's a program generator? It's a program that writes a 
program. Why bother doing that? Because: the program 
generator will check things very closely for errors. There's 
little chance that you'll make a mistake in the DATA state- 
ments that eventually create COPY FILE for you. 

Type in lines 210 onward very carefully. Be especially 
careful that you don't forget the semicolon at the end of line 
300, 

Now start working on the data lines. Don't worry too much 
about accuracy: if you make a mistake, the generator pro- 
gram will almost certainly pick it up and tell you about it. 
And it won't write program COPY FILE 64 to disk until you 
have gotten all the DATA statements right. 

In fact, you can type in some of the DATA lines and try a 
RUN before you're finished, COPY FILE will check what 
you Ve done and tell you what s missing. 

It's nice to feel that you can't make a mistake in typing in 
this program. It gives you a sense of security. 

But the point of program GENERATOR is to give you 
program COPY FILE 64. And if you need to copy a file, 
COPY FILE 64 will be very useful. 

There are other, bigger, copying programs that read the 
directory and check for errors and help you with other good 
things. But if you don't happen to have on of those. COPY 
FILE 64 will come in handy. 



Program: GENERATOR for COPY FILE 64 



data 


1. 


8, 


18, 


8, 


80, 


0. 151, 53. 


-53 


2 data 


49, 


44, 


56, 


52, 


58, 


151, 53, 50, 


-10 


3 data 


44, 


57, 


0, 


55, 


8, 


90, 0, 133, 


-19 


4 data 


34, 


70, 


73, 


76. 


69, 


32, 84, 89, 


-42 


5 data 


80, 


69, 


32, 


32. 


83, 


157,157. 157, 


-37 


6 data 


34, 


59, 


84, 


36, 


58, 


133, 34, 70, 


-3 


7 data 


73, 


76, 


69, 


34, 


59, 


88, 36, 0, 


-29 


8 data 


75, 


8, 


100, 


0, 


159, 


49, 44, 56, 


-14 


9 data 


44, 


50, 


44, 


88, 


36, 


58, 158, 50, 


-8 


10 data 


50, 


50, 


51, 


0, 


98, 


8, 105, 0, 


-61 


11 data 139, 


83, 


84, 


179, 


177, 


54, 52,167, 


-23 


12 data 153, 


34, 


78, 


79, 


32. 


71, 79, 34, 


-57 


1 3 data 


58, 


144, 


0, 


128. 


8, 


120, 0, 60, 


-2 


1 4 data 


49, 


58, 


133. 


34. 


79, 


84, 72, 69, 


-47 


15 data 


82, 


32. 


68, 


73, 


83, 


75, 32, 82, 


-49 


16 data 


69, 


65, 


68. 


89, 


34, 


59, 65, 36, 


-48 


1 7 data 


0, 


171, 


8, 


130, 


0, 


139,195. 40, 


-23 


18 data 


65, 


36, 


41, 


167, 


159, 


32, 49, 44, 


-22 


19 data 


56, 


44. 


30. 


44, 


88, 


36. 70, 34, 


-32 


20 data 


44, 


34, 


170, 


84, 


36, 


170, 34, 44, 


-61 


21 data 


87. 


34, 


58, 


158, 


50, 


50, 54, 55, 


-20 


22 data 


58, 


160, 


49, 


0, 


0, 


0, 0, 0. 


-38 


23 data 


32, 


7, 


9, 


162, 


1, 


32.198,255. 


-30 


24 data 


32, 


228. 


255, 


160, 


0. 


145,251,230, 


-12 



25 data 251, 208, 8, 230, 252, 165, 252, 201,-43 

26 data 208, 240, 4, 165. 144, 240, 233, 165, -50 
27data251, 141, 64, 3,165.252,141, 65,-54 

28 data 3, 76,204.255, 32, 3, 9.162,-29 

29 data 1. 32.201.255.160, 0,177.251,-49 

30 data 32, 210, 255, 230, 251, 208, 2. 230, -25 

31 data 252, 165, 251,205, 64, 3,165.252,-61 
32data237, 65, 3,144,231,169, 55,133,-28 

33 data 1, 76,204,255,169, 54,133, 1,-61 

34 data 169, 9,133,252,169, 84.133,251.-55 

35 data 96,-28 
200 data 36 
210m = 63 

220 read x : [ = peek(m) : ti = l = 200 ; if ti then l = x 

230 v = rOl ; s-(t<>63 and r>0 and v) 

240ifvthent = l:if notsttienr = r+l is^rOl 

250l = (t*3 + x)and63 

260if s ttien print "error line" ;r : e = -l 

270 r = l : if not h goto 220 

280 if e then stop 

290x=^-l : restore : open 1,8, 3, "0 : copy hie 64,p,w" 

300 if x> = then print*!, chr${x); 

310 read x : [ = peek(m) : if K200 goto 300 

320 dose 1 : end 
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INTRODUCTORY PRICE 

$109.95 



MPI INTRODUCES SUPER ACTION MEMORY 
EXPANDER BOARD FOR VIC 20* 

Adds 24K and 3 Expansion Slots With Switches and Fuse $109.95 

(Expandable To 35K By Simply Adding Memory Chips and Switches) 



isfef 
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24K BOARD FEATURES: 

"Adds 24K Memory C29K with VIC" 5K) 

' Upgrade Boarfl To 35K by odding IC's ar>d switches 
■Memoiv swiTchoble in BK sections (No need fo remove memory board To 
mn your ottwr programs) 

-3 exponsion slots witt^ switches (fof gome or extio utility cartridges). 
• RaseT buTton allows restarting computer wiTTiout turning power off. 

' 5 amp fuse proTected. 

■ Switch relocotes expansion cartridges in memory so that it con be saved on 
tape as backup for your vaiuoble programs (The unexpended ViC will not 
allow canridges To be saved on tope). 

'Write protecT switcties allow programs stored in RAM at ROM location or 
entire Memory To be protected against accidental write 

'Switch allows memory to be moved DeTween RAM and ROM Ixalon. 
(Useful for developing your own games and saving on tope). 

■ Gold plaTed cord edge connector. 
"No other memory expansion needed. 
'Easily plugs mto your VIC. no modifications necessary 

Saves weor on your VIC 20 since board never needs To be 
removed or power turned off ond on to run other tapes 
or cartridges 
' 'Optionol 35K memory (AOK with VIC" 5K). 
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Pictured Above- 

Action Board with all options 



24Kmemory. 3 expansion slots, switches assembled and Tested .S109.95 

Same as above with sockets Thot allow you to later odd your own memory chips To 
bring memory from 24K TO 35K S124.95 

Full 35K memory. 3 expansion slots, 3K expander mode, eprom socket 
(switch selectable between BLK 3 & BLK 5) ond oil switches ossembied ond tested 

(eprom not included) $149.95 

Bare35KboardwifhcompleteinsTrucTionanapaFislisT S39.95 



COD Orders: 816-444-4651 
MIDWEST PERIPHERAL INDUSTRIES 

D 




VIC 20' is a registered trodemark of Commodore. 



Prices are in US lioliars. 

Add $5 for shipping and handling 

Mo. residents add 5V2% sales tax 
Send check or money order to 

MPI 

Box 8123-B 

Kansas City, MO 64112 

Personal checks -Allow 3 weeks to clear. 



K¥.: 
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The Banner Machine 

For the Commodore 64 (wiih 5 
fonts) or the VlC-90 with 24K mem- 
ory • Use on any Epson MX with 
Graftrax or The FX and PX printers 

• Menu-driven program operates 
like d word processor. • Mal<es 
signs up to 10" tall by any length. 

• Makes borders of variable width 
up to Vi" • 8 sizes of letters from 
Va" to 6'/?" high • Proportional 
spacmg. Automatic centering. R>3ht 
and left justifying $49 95 Tape or 
Disk [Specify computer equipment) 

For the Commodore 64: 

Space Raider An amazing arcade 
simulation Your mission is to 
destroy the enemy ships S19 95 

Super Roller Challenging dice 

game Sprite graphics and sound 
yaht^ee-styie rules of play SU.93 

Formulator A formula scientific 
calculator designed for (asks which 
require repetitive arithmetic com- 
putations Vou can save formulas 
and numeric expressions S39 95 

Preschool Educational Pro grams 

ABC Fun; 153 Fun- and Ginger the 
Cat with Addition and Subtraction, 
Number Hunt, and Letter Hunf All 
programs have bright coior, music, 
and action Each 51-195 

CommodorF 64 arKt VIC 20 are registered 



Microbrokcr Ejiciling, realistic 
and educational 5tocl< market simu- 
lation based on plausible financial 
events $34.95 Tape or Disk 

Sprite Editor The easy way to 
create, copy, al^er, and save up to 
524 sprite Shapes $94 95 

Cross Reference Generator for 
BASIC programs Displays line 

numbers in which any word of 
BASIC vocabulary appears Allows 
you to cliange variable name and 
ask for lines where it appears, and 
more S19 95 



For the VIC-20: 

Caves of Windsor A cave adven- 
ture game The object is to restore 
wealth and happiness to the small 
village of Windsor $14.95 

Burger & Fries Fast action joystick 
game Eat the burgers and fries but 
avoid the shakes for a top score. 
S14 95 

Catalog available Dealer loquirie^ inviied 

PMOME ORDERS: (703) 491-fi502 
HOURS: 10 a.m. lo 4 p-m. Mon-— Sal. 

Cardinal Software 



-¥■ 



Dislnbuled by 
Virginia Micro Sy5lems 
13646 Jeff Davis Hwy 
Woodbrid3e,VA 22191 



Assembler for the 



Comm 



• If 



re 64 



I^L64 

* easy to learn 
•easy to use 

•fast 

• comprehensive 

manual 

Personal assembly language 

by Brad Tern pie ton 

also available for the Commodore 

4,000 - 8,000 9.000 series 

S99.95 from your local Commodore dealer 
For your nearest dealer call; 

(416)273-6350 
PRO-LINE 

^■■■IIMOFTVmPC 

7SS THE QUEENSWAY EAST Uf^'T 8 
MISSISSAUGA ONrAfllO L4Y 4C5 



(fedemarks ol Co-^ ir^lrjre ElCClroriics Ud 
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IrarKSQCtor 



PAYS 
$40 



per page for articles 

We're also looking for 

professionally 

drawn cartoons! 

Send all material to: 

The Editor 

Tlie Transactor 

500 Steeles Avenue 

Milton, Ontario 

L9T3P7 



Volume 5 Editorial Schedule 



Issue' 1 heme 


Copy Due 


Printed 


Release Date 


1 Graphics and Sound 


Febl 


Mar 19 


April 1 


2 1 he Transition to Machine Code 


Aprl 


May 21 


June I 


3 Software Protection & Piracy 


Jun 1 


Jul 23 


August 1 


4 Business and Education 


Augl 


Sep 17 


October 1 


5 Hardware and Peripherals 


Octl 


Nov 19 


December 1 



Advertisers and Authors should have material submitted no 

later than the *Copy Due' date to be included 

with the respective issue. 

Driving by Milton? 

Come Visit Ust 

Take Highway 401 to Highway 25 

Go South to Steeles Avenue 

(first lights past railway bridge) 

Turn left (East) to first lights 

100 Yards past there on your right 

IsUsI 
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GOSUB 



INTERNATIONAL INCORPORATED 



c 



G<f 



The Flexikey System 



Retai; 
$69.95 



Features: 

19 Keys, each of which may have 3 sep- 
erate definitions! 

Complete documentation including pro- 
gram list[ngs! 

Works on the VIC20 (Expanded) and C-64 
computers! 

Compatible wfth most existing software! 

Great for use with business program sand 
electronic spread sheets! 

Ideal for machine language programmerf 



VtSA & MASTERCARD WELCOME QealBt Inquiros Invited - {316) 265-9858 

o *. w X, GOSUB Inlernational -501 E. Pawnee- Suite 430 

Pnces subiect to change ^-^^^^^ ^^^^^^ g^^l 1 

"0-64 and VIC 20 are registered trademarks of Commodore International. 
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PRO 

STEVE PUNTER'S 
DATA ORGANIZER 



2^.< 



^^■'■^■"^^^ 




TM 



iR ■ ^: 

dRE|4 

COMPARE 
THESE FEATURES: 

• tet fil» definition 

• «My updating 

• npM prhiting with total 
format and record selection 

^»trol""^^-' 

• WORDfRd corr^Mtitile 

• if 1)4000 M»rds on 1541 

MAIt.PR0 64 $129" 

Also availaM* for COMMODORE M32 . . . SI79*' 



.. X.-?" 



^■y? 



'^^ 



CaM for the mm* of your ImiI dealer: 

PRO-LINE 



T^ 
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IISOFTXA/AHE 

PR04JM SOFTWARE LTD. 

(416)273-6350 

75S T>4E QUtENSWAY EAST, UNIT fl 
MKSISSAUGA. ONTARIO CANADA, LAY 4C5 
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For your Commodore 64 

Fof only $12.95 each, our CURSOR 
64 tapes are your best buy for the 
Commodore 64, They take advantage 
of the color, sound, and sprites that 
make the 64 such a delight to use. 
Most of our packages include three 
excellent Basic programs on one cas- 
sette tape. The programs are not copy 
protected, so you can look at the 
source code, and learn how to make 
the 64 do its tricks. 

We don't have room to describe all 
25 of our CURSOR 64 progranis here. 
As a sample, you may want to order 
tape 64-5 with the exciting Godzitia 
program. You'll be challenged as you 
try to save Tokyo from from the ram- 
paging Godzilla. Or try tape 64-3 with 
the popular Miser text adventure that 
will lake you hours to solve (even if you 
cheat and read the program source). 

We have super programs for the 
ViC 20, such as Dungeon ($12,95), a 
visual adventure for 16K VICs. Our 
VIXEL programs are also popular with 
VIC owners. And. we still sell all 30 of 
the original CURSOR cassettes for the 
original PET and CBM. 

Calf or write for a catalog today Be 
sure and teil us whether you have a 64, 
a VIC, or a PET We welcome credit 
cards, and ship most orders the same 
day they are received. Dealer inquiries 
invited. 

CURSOR 64, Box 6905 

Santa Barbara, CA 93110 

805-683-1585 



COMMODORE COMPUTER 
PRINTER ADAPTERS 



-addressable-switch seletiable upper/ 
lower, lower/upper case. 

■works with BASIC, WORDPRO, 
VISICALC and other software. 

—IEEE card edge connector for con- 
necting disks and other peripherals 
to ihe PET. 

—power from primer unless otherwise 

noted, 

RS-232 SERIAL ADAPTER — 

baud rales lo 9600 - power supply 

included. 

MODtL ADA 1450a $149.00 

CENTRONICS/NEC PARALLEL 

ADAPTER -^ Centronics 36 pin 
ribbon connector - handles graphics. 
MODtL ADA !800 $129.00 

COMMUNTCATIONS ADAPTER- 

serial St parallel ports — true ASCII 
conversion — baud rates lo 9600 — 
half or full duplex - X-ON, X^QFF - 
selectable carriage return delav — 32 
character buffer - Centronics com- 
patible. 
MODEL SADt $295.00 

COMMODORE 64 to RS-232 

CABLE ADAPTER 

MODLL ADA 6410 $79.00 



Prices are (O US dollars 
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COMPUTER INTERFACES 



iEEE-4aa 



RS - 232 



ANALOG AND DIGITAL INPUT/OUTPUT MODULES 

The BUSSter line of analog and digital 
products was designed to collect data and 
lo output signals lo laboratory and industri- 
al equipment m conjunction with a 
microcomputer system. These powerful 
self-contamed modules reduce a comput- 
er's workload by providing read or write 
operations to external devices. They are 
controlled as slave interfaces to real-world 
physical applications. Control is over 
an IEEE-488 (CPIB) bus or RS-232 port. 
BUSSter modules are available in several digital and analog configurations. The internal 
buffer and timer provide flexibility by allowing the BUSSler to collect data while the host 
computer is busy with other tasks. 




BUSSter A64 — 64 channel digital input modoie 
to read 64 digital signals. Built-in 
buffer S495.00 

BUSSter 064—64 channel digital output 
module to send 6i digital signals $495,00 

BUSSter C64— 64 channei dig<tal inputoulput 
module to read 33 and write 32digita! signals. 
Built-in buffer $495.00 

BUSStftr D16— 16 channel analog input 
module to read up to 16 analog signals with 6 

bit resoiution iVd%) Built-in buffer S495.00 

BUSSter D32 — 32 channel version of the 
016 $595.00 

BUSSter E4— 4 channel analog oLfTpul module 
to send 4 analog signals wUh 1 2 bil resolution 
( 06%) $495.00 

BUSSter E8— 8 channel version of Ihe 

E4 $595.00 



BUSSter E16— 16 channeJ versjon of the 
E4 $695.00 

Add the suffix -G for IEEE-488 (GPiB) or -R for 
RS-232. 

All prices are USA only Prices and specifica- 
tions subject lo change without notice 

30 DAY TRIAL— 

Purchase a BUSSter product, use it, and if you 

are not completely satisfied, return it withm 30 

days and receive a full refund. 

US Dollars Quoted 

$10 00 Shipping & Handling 

MASTERCARDiVtSA 
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ConnBCtlcut microcomputer, tnc. 

INSTRUMENT DIVISION 

36 Del Mar Drive 
Brookfield, Ct 06604 
(203)775-4595 TWX 710-456-0052 
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COMMODORE 64 

ADD all this: 

• RUN-TIME COMPILER 
40 Graphics Statements 
I I Sprite Statements 

• "LOGO" TURTLE GRAPHICS 

• FAST program execution 

• auto line numbering 

• line renumbering 

• program structures 

• pretty printing 

• merging programs segments 

• long variable names 

• named procedures 

• parameter passing 

• local and global variables 

• random access disk files 

• stop key disable 

• End Of File detection 

What does this and rrjore? COMAL 
What is the cost? Only $19.95 

Di^k lodidcd wiih m^ny sarnple programs. 

Al^o ^v^il^bie COMAL HANDBOOK, S I 8 9S 

Send SASE for more Informaiion of 

Send Check or Money Order in US Dollars 

plus S2 00 shipping/handling lo: 

COMAL Users Group. 550 1 Crovefand Ter 

Madison Wl 537 16 f60S) 222-4432 

fnoi aftili-ired with COMAL InreresT Croup) 
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C64-FORTH 

for the Commodore 64 

FORTH SOFTWARE FOB THE COMMODORE 64 

C64-FORTH fTMl for iheCommcdore M - $99.95 

• Fig furlh-79 JmplemenUtion wilh exl^nsions 

• Full Feature screen ediior and mitro asiembler 

• Ttiice teature tor ejty debu^mg 

■ 320x200, 2 coJor bit mapped ^npWiCi 

• 16 color ^pntc ^nd character graphics 

• Coitipaliblewjth V EC peripherals including di^ks, data set, modem, 
printer and cjrindgps 

• Exien$ive 144 pa^e manual wiih enampJes and appltcalion screens 

• "SAVETURNKEV " normally aikuvs a^licatjort program dislribulit 
withuul licensing or roydlies 

CM-XTtND (TM) FORTH Exiension forCM-FORTH- $59.M 
(Requires on^inal C64.FORTH topy) 

• FuUy compatible nodlLng pam\ package induding arithmetic, 
relational, logJL^l and LranstendenuL functmna 

• Floating pmnt range of lE*3fl lo 2E-39 

• Siring extensions including LEFT*, RIGHT! and M1D$ 

• BCD FurKtior\s for 10 digit numbers induding multiply, divide, and 
percentage. BCD numbers may by used for DOLLAR. CENTS 
calculations without ihe round-off error inherent in BASIC real 
numbers 

• Special words are provided for inputting Jnd outputting 
DOLL ARGENTS values 

• Deiaded manual with examples and applications screens 

(Commodore 64 1^ n trademark oi Commodore) 

TO ORDER - Specify disk or caiseiie version 

- Cherk, money order, bank card, COD'i add 4150 

- Add t-l. 00 postage and handling in USA and Canada 

- Mass. orders add 5% sales lax 

- Foreign orders add ZO^b shipping and handLng 

- Dealer inquiries welcome 

PERFORMANCE MICRO PRODUCTS 

77D Dedham Street. S-2 

Canton, MA 02021 

(617)828-1209 





We'll back you up! 
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ATTENTION COMMODORE 64 OWNERS 

If you own a disk drive then you'll need "The 
Clone Machine"- Take control oi your 1541 with this 
package that includes: 

1.) Complete and thorough users manual 

2.) Copy with one or two drives 

3.) Investigate and back-up many 

"PROTECTED" disks 

4,) Copy all file types including relative types 

5,) Edit and view track/block in Hex or ASCII 

G.) Display full contents of directory and print 

7.) Change program names, add, delete files 

with single keystroke 

8,) Easy disk initialization 

9-) Supports up to four drives 
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Special intro ^39*95 



*My only 
copy 

goner 



Dealers & Distributors 
Inquiries Invited 



CALL (201) 838-9027 




Pompton Plains 
07444 



Prices cire m US c;o!lar: 



The .* 



^"fcj* r— 



The 



SOFTWARE GAZETTE ^^^^^Jt 



PAPER 



Five years of service to the PET community. 




The Independent U.S. magazine for 
users of Commodore brand computers 

EDiTORS: Jim and Elien Strasma 
Sampie Issue free on request, from: 



635 MAPLE □ MT. ZION. IL 62549 USA 
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Finally! An Affordable Full-Size, Full-Feature PRINTER 

$229.95!! 



For your VIC-20®, C-64® 
ATARI® 

Centronics Parallel Types 
And RS-232 Serial Types 

FEATURES: 

• Full graphics capabjitty. 

• In the graphic mode, a column of 
graphic data can be repeated as many 
times as you want with a single command, 

• Double width character ou^ut under 
software control (5 char, per inch). 

• Print position addressable by character 
or dot (positionmg control), 

• Graphic character and double width 
character modes can be intermixed on 
a single line. 

• Automatic printing. When the text 
exceeds the maximum line length no 
data is lost due to overflow, 

• Sell-test printing mode. 

• Paper width is adjustable up to 1 inches. 
Standard plain paper. 

• 50 cps print speed, 

• 80 characters per line. 

• 5 X 7 dot matrix. 

• Full 2 yr. Warranty. 

• Foreign character sets 
For U.S., U.K., Sweden, and Germany. 




LIST 
$299 



+■^■^.^ 
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BASIC PRINTER 

(Requires one 

Option Below) 



Any of these Options allow you to connect and print - cables included. 

APROPRINT-2064™ (pictured) . . . .Add: $35.95 

For Commodore VIC-20 & C-64 - Cableincluded. 

APROPRINT-4080 " Add: $45.95 

For alJ Atari Computers - Cabfe included. 

APROPRINT-1000™ Add: $29 95 

RS'232-Serial - Name your computer 

APROPRINT-8000™ Add: $29.95 

Centronics type Parallel - Name your computer 

ADD: $8,00 shipping (cont. USA), $25.00 (Canada, HI, AK) 

(All other foreign orders Add $55.00 (shipped by Air) 



The ONE VIC-20® Memory Expansion Board that DOES IT ALL! 



Maximum Memory allows you to use more powerful programs tor: 

• EDUCATION • ENTERTAINMENT • MAIL LISTS 

• BUSINESS APPLICATIONS • FINANCIAL RECORDS 



4PBCIP05 TECHNOLOGY 

RAMAX 



Ekt$n$ion 
"^connBctors 

bIIovj cMhe' 

CartridtjevSa 

beus^i 



Vwylo* ___ 

roqu^es no 
8xt#rnal 



Tolaiiy setr 
cDniaim<fr 





Uen^0fva4k> 

caiKKis^e 

fu^Fyswich 

SpDCfficatJons) 



Bua-in flESET 
SMtefil 



Fuse proiecTefr^ 



TO ORDER: 

Send Check or Money Order FortheTola[ 
Caljl. resMtenis acW 6% lax. 

Of Contact your Local Dealer 
Phone o.xlersCan(805) 482-3604 



arKliabof 
w^rtr^r^ 



Migh r^ii<4bilpty 
conned ors I 





AJiPnces U.S. Dollars SPW 



DEALER tMOUiniES WELCOME 



WE SERVICE WHAT WE SELL 

VIC-20 & CofT!modore-&4 are registered 

trafJemarks of Commodore International, 
Alan IS a tradomark ot Atari Jnc. 

APROPOS TECHNOiXXSY 

1071 -A Avenida Acaso 

Camarillo, CA 93010 



A perfect investrrwntto give y^Jf famity arxJ yourself 
more enpymenl arfl use Irom your hgrne c<ifTipu1fif ! 
The MM ol OlK*r aliDh \[^ iwdC appen i ^Mls e^ iKJ tfw 
real POWER lE adds to your ViC Jl inns lo* prce 
makm Ft a MUST to^ evofy vtC homei 

Sf^ClAL LOW PRICE! 



Only $149.00 



PrtM FfKludes shipping arxlhanddrxi'-viiliin 
Cofitirwntal USA Fof&»gri orders oiease 
acld|i5 00 Calil Hes+der^ aOrt 6% saw 
lax 

10 DAY MONEY-BACK GUARANTEE 

II ncM sat1^l^ec^. simply rf^lum in ongvial 
COrVJrlK^n lar your money Q^a 

RAMAX Jr." 

Alr««ly own an Bh f xp^vldT? Get r« NFW 

fUPiUX Jr.~^ Ide^lfccal To th& RANtAX" 
eMCepI A'th llkmsfe^Klol^^k Our mstniC- 
lions wik ^Jiaw yuu FiDw tL3 u^^ y4>ui 3k aa 
SLK 3 wrtti Jr. ro fletthe Wl complerr»entot 

Special Only $129.00 

Shipping included 



Tc equal the totdl merrurv oi r^AWAX'^you wouk] 
have 10 Du^ a 16*t Wefnory EKpansKJTi PLUS an a*^ 
Expansion. PLUS 3K Ej^panacn THEN you would 
need a "moflner board ' Wirti RftMAX ' you b^jvjufit 
C>NEp»He d^ ABO^ fT HA^ F THE PRCEl 

RAMAX '" FHtUfM ATbd SpKlflcaliortt: 

* Aii45 up )□ a i\jH 27h: bytes ot addilional RAM to 
th? starvlard VlC-^D ^ inte^al RAM ot 5k, 

* BupII in SWlEC?^ allows U^i '^^\^ l^on <^ ^ny Kvn- 
tHnaiictfi of 5 ajeas or RAM rnerTHfV 

6LK1 (fih. Adr 91^16383 

BLKZ Bk. Adr I63fl4 24675) 

SLK 3 8k AOr ^4576-3?7e7> 

BLKS Adr 40960-49151. ^Ikiws/dksaJiows 

ah POMT}?rnfls) 

fi-AMj^k Adr ID24-4D95) 

RESET (Resets comtxilw ^rrttuul pCM^oM/^} 

* ByiFt-Foelectncal FusetopfotftctequipmwU 

* Totally ^^H-COniahred rOo exlernal power supply 

needed 

* Two 1^1 eictensrori connectors alknv ANV addi' 
tunat cartTHtges and/or dAviue dHignod tor (he 
VIC eKpansJon pen 

* Varv lowpowarconsurrrpmnj I7&airipuwjal) 

* High reltatHlity gokl^piatHl »fir«ciOfS are de- 
signed Nx ksng liie 

* Corrwlale C^ralH>q Marual 

* e rtKmlh pans and labw warranty lo original 
purchaHT. 

« Factory fiAfviU- 

^Mar>y VJC'20 cartndC|e$ and programs require »r- 
Caini:onr»guratBnBof[bftr>XKnory|i eceriair^oanws 
will only run on |he unexparvltd ViC y^hito Othtffi 
TMul^O tht uppyr porlic^nof 1ht*flxn;indpc1 rrvmory) 
Witb ttAMAX ■ yoij ha-^e SAilcnes tnal Lu^r^ oh arid 
turn-off portK>ns of Ihe nwmory to provxie the n^ 
area ol menKxy - all wlhoutpkigaing or Ltnphjgging 
hs 30 Msy^ 



TH 



New Product? 

Ar nUir AWU-D4 Gives your Commodore B4 lulf expandatMlrty. ThB 

supefWy desiQnodojcpanfiPon rnodute plugs mlp ihefiJ » gwesyou 4 gwncnabtefainglv orlnar»y 
COnibinalNX^>«>ipans»naxyiaclDr3^pkj3fus«prot«cWo-pliiaar6»tbuHDn' onrytSd 95 

Shlpp^ lodudH 



APROPOS TECHNOLOGY 






I USED TO l.AUaH WHEN 
HE TOLD ME HE PRh^CTICED 

AT HOME ar-i Hia computbct 




Here is your chance to play golf on a championship course without ail the 
headaches of getting a tee time, waiting for that slow foursome ahead of you, 
losing balls, getting rained out or spoiling a good handicap. This game may be 
played in the privacy of your home or in a clubhouse lounge for the enjoyment of 
many members. A challenge to even the best players, this game requires a high 
degree of practice, expertise and accuracy to attain a good score. 



PRO GOLF Features: 

• A full range of golf clubs (driveway, fairway wood, 
wedge and irons 2-9) 

• Realistic shot distances dependirig on club and 
swing 

• The ability to hook or slice a shot 

• Up to 4 players in one game 

• Detailed, colourful screen layouts of 18 different 
holes (tee, trees, sandtraps, rough, water, out of 
bounds) 

• Simulated ball reaction to course hazards (e.g, ball 
bounces off trees) 

• Hole distances, par, yards to green, strokes taken 
on hole, total strokes per round and player totals 
displayed 

• A full screen enlargement of greens for putting 

• Accurate putting simulation for angle and distance 

• Practice of real golf skills - club selection, type of 
shot (normal, hook, slice), length of swing, special 
shot strategy {e.g^ chipping, getting around or over 
trees, water, sandtraps) 



PRO GOLF 

For The Commodore 64 

$34.95 

written by George Adams 

distributed by BMB Compuscience Canada Ltd, 

500 Steeles Avenue, 
Milton, Ontario 

L9T 3P7 
416-876-4741 



Dealer Inquiries Invited 



Name 



Address 



Prov/State 



Postal/Zip Code 



DMoney Order DVISA DMasterCard DCheque 

Acc# _. ^ . -_ Expiry _ 

Please include numbers above name 

Add $2.00 for shipping & handling 
Ontario residents add 7% sales tax. 



Micro Spec 



SOFTWARE MEANS 

BUSINESS FOR THE 

COMMODORE 64 



When it's time to get serious, it's time to boot up 
MicroSpec business software. Our complete line 
of business software is made to give you some real 
applications for your Commodore 64. From data 
base management to full accounting software, we 
have the package for you. 

It's attention to detail that makes our packages 
so beautiful and makes them stand out from the 
rest. We realize that most people are first 
time users, so we designed all our packages to 
be completely menu driven and user prompt- 
ed for each input. We also know that most 
people use only one disk drive, so we 
desired all our packages to virtually 
eliminate disk swapping. Other features like 
non destructive input routines really make 
our software easy to use. But all this doesn't 
restrict you. Pure random access file struc- 
ture maximizes your disk capacity and 
allows you to bring up any record for viewing 
in less than a second. 

In our efforts to put together the best pack- 
ages available, we worked on more than the 
software. We took the same approach with the 
documentation as the software. We made it com- 
plete and easily understood for the first time user. 
We even provkle sample reports in many cases. 
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The Demonstration Package, which shows how 
each program runs, is available for $19.95. So, if 
you're serious about your 64, call or write for a 
complete brochure or go right down to your 
nearest computer retailer for a demonstration. 



^ ARE READY TO GET DOWN 
GIVE US A CALL 




P.O. BOX 863085 • PLANO 

(214)867-1333 
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P.O. Box 4364 
Flint, Michigan 48504 
(313) 233-5731 
(313) 233-3125 



ZANIM 



SYSTEMS 



HOME CONTROL FOR YOUR VIC UNDER $200 




The ZCM-1 is the Master Control module that provides the fnterface between your computer and our 
lineof Zanim Application Modules. Up to 15 Application Modules can be piggy-backed to the ZCM-1 
Master Control module. The ZCM-1 is corr:oalable with any standard RS'232 (serial) iriterface. A special 
Master Control module, the ZCMW iy available for The VIC-20 and Commodore'64 computers. 



'The ZGM-1V IS available tor VIC-20 and C'6'' .-^e.s. 



VIC/C64 $129,95 
RS-232 $U9.95 




2AM-1 is the home control interlace module that pMvides a fuHy versatile computer controlled en- 
vironment. ZAM-1 can control up to 256diflerenl lanips and appliances in your home or business pro- 
viding you with an effective and easy lo implement energy management and electric control system. 
No special modifications are necessary to your building as all control signals are sent over your ex- 
isting wiring. ZAM-1 can be programmed in BASIC or optional home control software is available. 
ZAM-1 requires one ZCM-1 Master Control module. 

'The ZCM-1/ZCM-1V Master Control module is required to use the ZAM-1 Home Control module. 

$169.95 





The ZAM-2 allows your computer to continuously monitor up to 15 different doors or windows around 
your home or business. ZAM-2 is a basic building block in a complete computer controlled home securi- 
ty system. With our ZAM-1 Home Control module, you can have a fuHy integrated security and en- 
vironment control system. Upon an intrusion, your computer can take the action most appropriate, 
whether that is lo ring an alarm bell, flash all the lights around your home, or dial the police. 

"The ZCM-1/ZCM-1V Master Control module is required to use the ZAM-2 Security module. 

$179.95 

TheZAM-3 is a complete telephone answering and dialing system. It is capable of taking the phone 
off-hook and dialing a number under computer control or of answering the phone when it rings. With 
the ZAM-1 Home Control module and the ZAM-2 Security module, the ZAM-3 Phone Dialer module 
can be integrated into a complete home or business secunty/monitoring system. Applications include 
security, aulo phone dialing, and computer-answering systems, 

■Pulse dialing option is available as ZAM-3P. $199.95 

'The ZCM-1/ZCM-1V Master Control module is required lo use the ZAM-3/ZAM-3P Phone Dialer module. 



SERIAL OR PARALLEL 
(CENTRONICS) PORT SWITCHER 

DOES YOUR COMPUTER 
LOOK LIKE THIS? 

A PORT SWITCHER NOW 
AVAILABLE FOR YOUR 
COMPUTER (ZSW1) 



Prices are in us dollars 




IS 



P.O. BOX 4364 

Flint, Michigan 48504 

(313)233-5731 

(313)233-3125 



Dtvic* A 
Device B 



~C©fl1IFK)ll 






D Please send me more information or catalogue] 



Name 



Company 
Addfess_ 



City 



State. 



Z*P. 



What Make/Model Computer do you own? 



APPLE IS TRADEMARK OF APPLE COMPUTERS, INC. 

CP^M 1S REGISTERED TRADEMARK OF D+GITAL RESEARCH, INC 



TRS - SO IS REGISTERED TRADEMARK OF TANDY CORP. 
VIC - 20 AND COMMODORE ■ 64 ARE REGISTERED TRADEMARKS OF COMMODORE, INC 
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1 TELSTAR 64 

1 Sophisticated Terminal Communications Cartridge tor the 64. 

1 'PFO' 100 00DCP Dl D2BELL 12.30:00 10 14 36 
1 (TELSTAR^s Status Line) 

1 Don't sett e for Jess than the best! 

1 "Up oad/DownJoad to/from disk or tape. 

1 • Automatic Fi e Transfalion 

1 • Communicates in ndustry Slandard ASCII. 

1 • Rea -Time Cfock p us Alarm C ock 

1 • Line editing capabi fty a lows correcting and resendmg long command ines 

1 • 9 Quick Read (unctions, 

1 • Menu-driven, 


8K in 30 Seconds ^^^^ 

for your VIC 20 or CBM 64 VSgv 

If vou owri a VIC 20 w a CBM 6J ona na^/e been concsfned "^"4^ a 
oboul ""le high co^' o^ a disk to Skue vout prog'orris on . . . Sr^CTj^ 
•^/"v vouFLftlf no longer Uc^- Ihe-esthe RABSli 'he PA8B" .^^^''V^iu'^N. 
co>T"ie5ir.i:icor''idge anoaf oTiuoh. moch lo*e' cnce f ^*CO^ ^ 
thkoritheave'ogeaiik Anay^eed irii5isor«fasiRAfi3r jr V— . y -.\ 
WiththeRAeBlTvcxjconicodandStOreorivouf CBM / ^--^>-'^~^L- \ 
dalasefeanfi-iDri^^rorriinQimo^JO^ectyidscompared j^ ^ 1 
lorheciirrenn-^inulesofoVlC^OorCBMMaimoslOi — "^^^^^^"^^^^i:::— J 
lasla^rne 1541 disk^lri^e "^fc^-^— ^'""'^ 

Ihe fJ'^BlI IS easy lo m^lall allows one 'o Append /"'*'"-- — ^^ -""^ 

Bosic Programs, wc^lis wilh or withoul ['pan^ion # ' "N^_x V-^.^"'^ > 
Memofy. ond provfde^ t^o data hie modes The ^^ ^^l-^^ ^ y 
RABBI! i^ nof only tail Dul reliable ^^^&^L— "^^T*^'^ 

fThePQbbi5for^rieVlC20conlQinson expansion con- ^^^^^r -^^— J 
npcilof soyoucansimuJtaneoiJslvTJ5evouf^©^o'vt>oard. etc) 5 39 95 


1 • Simi ar to our famous STCP Termina package 

1 • Works with Commodore Modems and supports aulo-dialfng, 

1 The best feature is the pnce - only S49.95 (Cartridge and Manua ) 


MA£Bs. ''"-^ 

For CBM 64, PET, APPLE, and ATARI 

Now, you con hove ihe some pioleBi.onaKy designed Wacro 
Assembler.' Ed 1 lor as used on Space Shulfle proiecEs. 

• 3e^i9r.eatoimp<&/eProgrommerProdJClMfv 

• Sifrilaf ^/ita:- and corrimonds - No need lo reieo'r, peculiar 
svTita-es and commands when you go from Pt '■ to APPlE to _/ 

• Cce^.deniA^^embler/Ediloi-^oneedioioadfheEdiiof ihen ^^ 
ifieAssemPle' ^r.en it- e Editor etc ^E 

• Afso includes Vi/oid P'ocessor. fJeiocahng Loader, and mijch ^Ha 
more i^^^^M 

• R^werTuI Editor. MociO^ Ccnditronal ond^nleractive ^^^^^S 
Assembly. 'Xid Auto -zero TXigpiZidd'e^s^ng ^^^^Ml 

StillnotconvincPd ^endlorojrlree^pec Gheet' JHH^| 


i 




1 Machine Language Monitor Cartridge 

1 fortheCBM64 

1 More than 20 commands alfow you to access the CBM 64 s Microprocessors 

Registers and Memory Contents. Commands include assemble, disassemb e, 
registers, memory, transfer, compare, p us many more. 

Someday every CBM 64 owner wif need a monitor such as fhis. 

Cartridge and Manua -$24,95 


Bfl^^j 











I 



3239 Linda Dr. 
Winston-Salem, N.C. 27106 
(919)924-2889 (919)748-8446 
Send for free catalog! 



V/SA' 






Prices are (n US dolfars_ 



C64 

PROVINCIAL 
PAYROLL 



A complete Canadian Payroll System for Small 
Business. 



• 50 Employees per disk (1541 
Calculate and Print rJournals • Print 
Cheques • Calculate submissions 
summary for Rt?venue Canada • 
Accumulates data and prints T-4s • Also 
available for 4032 and 8032 Commodore 
Computers- 
Available from your Commodore Dealer. 



l>1^(^lbllCftl hv. 




ICROCOMPUTER 
SOLUTIONS 

1262 DON MILLS RD. STE, 4 
DON MILLS, ONTARIO M3B 2W7 
TEL: (416) 447-4811 



TYPRO 

DATA MANAGER & WORD PROCESSOR 

For COMMODORE 8032 Computer - 8050/4040 Or 



NOW AVAILABLE FOR THE COMMODORE 64^ 

DATA MANAGER 

Number of records is only hmited by your disk 
capacity. Up to 50 fields per record. Maximum of 75 
characters per field. User formatted. Screen editing. 
Sort and search feature. Pattern match search. 
Selective field printing and formatting. Form letter 
addressing. Mailing list and mailing label printing. 
Format for fanfold Rolodex and index card printing. 

WORD PROCESSOR 

Screen editing. Automatic line length set. Add, move 
or delete text. Global edit. Page numbering and titling. 
Form letter addressing. File append for printing. 

BOTH PROGRAMS ABOVE, ONLY $89.00 

■ Commodore 64 is a IrademarX of Commodore Electronics, Ltd 

Also for Commodore 64 and 8032 

AMORTIZATION SCHEDULE $30.00 (Disk) 

INVENTORY MANAGEMENT— $55.00 (Disk) 

All software is fully supported for updates and revisions 
for up to six months after purchase. 

Specify Computer model number and Disk model number. 



INPUT SYSTEMSJNC. 

25101 S,W, 194Ave.Homesiead,FL 33031 (3051245 3141 
DEALER INQUIRIES INVITED. 
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IS PROGRAMMING 

TURNING YOU INTO 



A HULK? 




Write Advanced Programs Quicklyl 

Tired of writing reams ot code? Take a quanlum jump into the 
future! Tommorrow's programmers are using software devel- 
opment tools such as THE TOOL, THE TOOL lets you make 
use of powerful machine language subroutines. Your pro- 
grams will execute fast using less code. Input/output routines 
and professional looking screens are easily created. 

Features of THE TOOL include : 

• Screen Design functions which allow controlled input and 
output 

• High Resolution Graphics with alpha^numeric dispiay 

• Screen Save and Load functions (for hi-res and text screens) 

• Structured BASIC instructions . e,g. IF THEN ELSE 

• Programming Aids (e.g. auto, renumber, delete, find, trace, 
hardcopy) 

• 2 keystroke disk commands (DOS support extensions) 

• Game Design Instructions (joy, scroll, screen, colour) 

• A 50 page user manual 



THE TOOL 

For The Commodore 64 ^'^ 
$65.00 

developed by Micro Application 

distributed by BMB Compuscience Canada Ltd 

500 Steeles Avenue, 
Milton, Ontario 

L9T 3P7 
41 6-876-4741 



Dealer Inquiries Invited 



Name 



Address 



Prov/Stale 



□VISA 



Postal/Zip Code 



DMasterCard DCheque 
Expiry 



Order 

Acc# _ 

Please include numbers above name 

Add $2.00 for shipping & handling 
Ontario residenis add 7% sales lax. 



72 



Commodore 64 

and 

VIC-20 



S149 




Telecommuni cations 

with a difference! 

Unexcelled communications power and 
compatibility, especially for professionals and 
serious computer users. Look us over; SupeiTerm 
isn't just "another" terminal program. Like our 
famous Terminal-40. it's the one others will be 
Judged by, 

' EMULAT/ON — Most popuf^r terminal protocols: 
cursor addressing, clear home, etc. 

■ ED ITIWG — Full -screen editing of Receive Buffer 

■ UP/DOWNLOAD FORMATS - CBM, Xon-Xoff, 
ACK-NAK. CompuServe, etc 

■ FLEXJBILfTY— Select baud, duplex, parity, stopbits, 
etc. Even work off-line, then upload to sysremi 

- DISPLAY MODES-40 column; 80/132 with 
side-scrolling 

- FUfMCriOrJ KEYS-8 standard, 52 user-defined 

■ BUFFERS— Receive, Transmit, Program, and Screen 
• PRINTING— Continuous printing with Smart ASCII 

interface and parallel printer; buffered printing 
otherwise 
' DISK SUPPORT— Directory. Copy, Rename. Scratch 

Options are selected by menus and EXEC file. Software 
on disk with special cartridge module. CompatlbJe with 
CBM and HES Automodems; select ORIG/ANS mode, 
manual or autodial 

Write for the full story on SuperTerm; or. If you 
dfre<idy want that difference, order todayl 

Requires Commodore 64 or VfC-ZO, disk drive or Daiaseite, and 
compaijble modem VfC version requires 16K memory eipansioo. Please 
specpfy VIC or 64 when ordenrtg. 



Smart ASCII Plus .. . $59 
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The only Interface whkh supports streaming —sending 
characters srmijftaneously to the screen and printer — with 
SuperTerm. 

Also gredt for use with your own programs or most 
application programs, i.e., word processors. Print modes: 
CBM Graphics (w/many dot-addr printers], TRANSLATE, 
DaisyTRANSL^TE, CBMArue ASCIL and PIPELINE. 

Complete wrth printer cabJe 3nd manual. On d/sk or cassette. 

VIC 20 and Comrrxxtor© 64 are [rademarks of Commodore Eleclronics, Ltd. 



Qftij 7onn ®*^ *^^ ^ '™* brochure. 

OOO' I ^UU |y,^j_ ORDER: Add S150 shipping arxl 

nil/WC% I accepted (card#and eHp. dais). MO rfisidenla 

add 5,675% sa>es lax. Foreign orders payable 
U S.S. U.S. Bank ONLY, add $5 shp/hndig, 

311 WEST72ndST 'KANSAS CITY •MO • 641 14 



(816) 



MICRO mc 



PRO-LINE 

■■IIIISOFTXA/ARE 

A CANADIAN COMPANY 

designing, 

developing, 

manufacturing, 

publishing 

and 

distributing 

microcomputer 

software 

DEALER ENQUIRIES WELCOME 
AUTHOR'S SUBMISSIONS INVITED 

CALL OR WRITE 

(416)273-6350 

PRO-LINE 

^■■llllSaFT\A/ARE 

7S5 THE QUEENSWAY fASt. UNIT 6 
MISSISSAUGA, ONTARIO L4Y ACS 
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STOCK HELPER 

Commodore 64 and VIC-20 

Slock HELPER is a tool lo maintain a history ot stock 
prices and market indicators on diskette, to display 
ctiarts, and lo calculate moving averages. Stock 
HELPER was designed and v^rttten by a "weekend 
investor" for other weekend investors. 

Stock HELPER is available on diskette tor: 

Commodore 64 $30.00 {$37,00 Canadian) 
VIC-20 (16K) $27,00 ($33.25 Canadian) 

plus $1.25 shipping ($1.55 Canadian) 

The VIC-20 version only charts 26 bi-weekly periods ralher tha"^ 
52 weekly periods. 

(M)agreeable software, inc- 

5925 Magnolia Lane • Plymouth, MN 55442 

(612)559-1108 

{MJaflreeable antl HELPER are irademarks ot (MJagreeaOle sofware. inc. 
ComrnodOFB 64 and VIC-20 are Irademarksot Cominodore Eleclronics Ud 



Intelligent Software 
for ttie Commodore computers 

CataloQ 6/1/83 

My llr>e Of proo^orns (such as tt is) consists of ttw blowing produds. 
Ail ore wTrtteo tor Commockxe compulers; any of my proQfams will 
load and run wtthoul modlflcaftofi In the entire Hno [including older 
PET'sJ, 

1. WOfd ProctMor; t25. tt Includes the foUowIng feofuros. VE(?Y fast 
file routtnesn Including o disk file coTolog. automotic form handling 
ori froctof' Of trlctlon-feed prlntefs; luily imbedded margin, Justtfica- 
Won, spacing, fornialtingn and paging controls; block commands 
and error-tTopp*rig in editing rrKxte; and a ^x>o< routine (formatted 
output to dlsl( for later mass pointing). I believe W/P is ttw most 
thoroughly tested, usef<yiented word processor cwalfctol© at this time 
cri anywhere near the price, for any machine Requires a minimum 
ot ^Ok ot merrKxy (8k expansion on VCj, and a printer, 

2, Copycalc; t20 [$15 it ordered with anott^er program]. 
Copycolc Is a simplfled ver^tor oft^ie "elecfronk: spreadsheets" that 
are becoming exlremely poputar tor use on personal computers, II 
aik>ws the user to set up o vlsibfe grkj of numbers on the screen, and 
use tt>e screen-editor to make changes In the grkl. with Jhe totals 
reflectlrig Ihe ct>onges. Requires 6k RAM [3k exponslon on ViC); 
smaller version available for unexpanded V»C. 

3. BoMbol Monao^r: 130. This program maintains comptefe bat- 
tiog statistics fof a boseball or softboll leogue of up to 250 ptoyers. 
rt genefcrtes reports on a player, teom, or t^e entire league (In- 
cluding standings). It requires a minimum 10k of RAM a printer Is sug- 
gested but r>o1 required. 

4, Invsntory; $30. A general-purpose perpetual inventory conlrol 
program. It prodoces a variety of reports. Including order fom^s: 
muttLple ver>dors are supported. Requires 10k of RAM; a printer is 
suggested, 

AJI programs' support cassette and disk flies and Itie CBM printers 
(easily modifiable to otfier prlntersl, come on cossetten and Include 
documentoliot^, Prices ir>clude shipping; Coiif. residents odd 6*. AJI 
programs os^ copyflghted by tt>e outtvy; ttxjs© rights will be enforc- 
ed. Programs avalloble from 

William Robblns, Box 3745, San Rafael, CA 9491 2 



Disk Software for the Commodore 64™ 



lOT-A-WORD 



TM 



A computerized version o! the old five letter word 
game. Simply pick a secret five letter word (one of the 
almost 5000 words contained on the disk) and then 
play against the Jot-A-Word Genie or simply play a 
solitaire version. Start by typing in a five letter word. 
The Geme responds by telling you how many letters 
your guess and the secret work have in common. Don't 
try to cheat, because the Genie is too smart and it will 
not accept non- words or continue a game that you have 
given it wrong scores. This is a simple but stimulating 
game for ages 9 to senior citizen, A real challenge to 
your intellect, reasoning powers, logic and deduction 
skills. It's simply hard to beat; as a fun and educational 
experience? Graphics and music add to the enjoyment. 



ONLY $29^^ 



miCra 1342BRT.23 

UinrE BUTLER, NJ. 07405 



Dealers & Distributors 
Inquiries Invited 



201-838-9027 



Wair«<C<jrt] 





Prices are in US dollars. 



"The Genie is hard to beat! 
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The World Famous Commodore 64. 



t,tor' 



No matter what your business 

or interest, with Superbase 64 

/ou have a totally flexible 

record' system, as big as you 

want it, as fast as you need it. 
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.ifiefs. 




Create your own 
formats, enter your records, 
change layouts and datafields. 

SupedDase gives you 
unrivalled control in home or 
office, business or 
professional practice, with 
a range of features 
including: 



, : ^ ^ SILICOM INTERNATIONAL SOFTWARE INC. 
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Pivcision 
Sollwaiv 



Qs commodore 



SOFTWARE FOR 



VIC * COMMODORE 64 • PET 
FROM KING MICROWARE 

S D COPY FAST EFFICIENT SINGLE DISC COPIER FOR THE 1 541 $1 9.95 

WORDS & CALCS spread sheet for the c-64 allows text $42.95 



CHART PAC 64 finest chart maker around 



v^e^ 



SMARTEES action packed maze game 

\ THE BANKER the finest check book reconciliation 

program on the market 



• DAISY —data adaptable information system 

— THE data base WITH A DIFFERENCE 

— ALLOWS YOU TO CALCULATE BETWEEN FIELDS 

• ASTRO POSITIONS find the stars and cast 

your horoscope 

LOOK AT THE LANGUAGES WE HAVE 

yes'- WE HAVE PASCAL 
ULTRABASIC with turtle graphics and sound 
TINY BASIC COMPILER 
TINY FORTH rg forth implementation 



$42.95 
$22.95 

$38.95 

$39.95 



$43.95 



$52.95 
$42.95 
$22.95 
$22.95 



64-BUDGETEER 
64-CRIBBAGE 

SKIER-64 

64 QUICK-CHART 

SYNTHY-64 



VIC TINY PILOT 
VIC BUDGETEER 
VIC VIGIL 
VICCRIBBAGE 

graphvics 



We are actively seeking SOFTWARE AUTHORS. 

WHY NOT SEND US YOUR PROGRAM FOR 

EVALUATION. 

Dealer Inquiries Invited 

Write for our FREE Catalogue 

for VIC and 0-64 



Canadian manufacturer and distributor tor ABACUS Software Products 



SCREEN DUMP 

SPRITE-AID 

VIC HIRES 

VIC JOYSTICK PAINTER 

VIC I-CHING 




Suite 210, 

5950 C6te des Neiges 

Montreal, Quebec H3S 1Z6 



I 
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MW-30a: VIC-SO/64 

Parallel Printer Interface. 



2-ft cable 

36-pin connector ;":";":">:;:-i^ 

%^ 




6-pin DIN 



^ , ^ ,_h H_+ 



. H", h"H"+ J"h H"- 



Works with all Centronics type parallel matrix & 
letter printers and plotters — Epson, C.ltoh, 
Okidata, Nee, Gemini 10, TP-I Smith Corona, and 
most others, Hardwaredriven; works off the serial 
port. Quality construction: Steel DIN connectors 
& Shielded cables. Has these switch selectable 
options: Device 4, 5, 6 or 7; ASCII or PET ASCII; 
7-bit or 8-bit output; upper & lower case or upper 
only. Recommended by PROFESSIONAL 
SOFTWARE for WordPro 3 Plus for the 64, and 
by City Software for PaperClip. 

MW-3aa .... Canadian Si 83.95 
Micro World Eiect;ronix, Inc. 

3333 S. Wadsworlh Blvd. #C105, Lakewood, CO 80227 
C3a33 987-2671 

CANADIAN DEALERS 



Computer Shop of Calgary 
3515 18th St. S.W. 
Calgary, T2T 4T9 
(403) 243-4356 

Hindson Computer Systems, Ltd- 
7144RsherSt, SB. 
Calgary, T2H 0W5 
(403) 252-9576 

TJB Micro Systems, Ltd. 
10991 124th St. 
Edmonton, T5M 0H9 
(403)433-3161 

BRITISH COLUMBIA 

Conti Electronics 
7204 Main Street 
Vancouver, V5X 3Y4 
(604) 324-0505 

ONTARIO 

MGI Computer Corp, 
1501 Carling Ave. 
Ottawa, T1Z 7M1 
(613)722-1000 

Richvale Telecommunications 
10610 Bayview (Bayview Plaza) 
Richmond Hill, L4C 3N8 
{416)884-4165 

SASKATCHEWAN 

Micro Shack of West Canada 
607 45th St. West 
Saskatoon, S7L 5W5 
(306) 244-6909 



COMMODORE OWNERS 



Join the world's largest, active Commodore 
Owners Association. 

• Access to thousands of public domain programs 
on tape and disk for your Commodore 64, VIC 20 
and PET/CBM, ^^^ 

• Monthiy Club Magazine * 

• Annual Convention 
■ Member Bulletin Board 

• Local Chapter Meetings 

Send S1.00 for Program Information Catalogue. 

(Free with membership). J 



Membership 
Fees for 
12 Months 



Canada — $20 Can. 
U.S.A. — $20 U.S. 

Overseas — S30 U.S. 



T.P.U.G. Inc. , 

Department "M'' 
igi2A Avenue Road, Suite 1 ^ 
Toronto, Ontario, Canada M5M 4A1 

• LET US KNOW WHICH MACHINE YOU USE 1 



Basic Utility for the 

Commodore 64 



POWER 64 

•easy to team 
•easy to use 
•program faster and 
more efficiently 
with better results 

•MOREPOWER 

included FREE 

Powerful Pro£rammer's Utility 

by BraoTempleton 

Manual by Jim Buiterfield 

S99.95 from your focat Commodore dealer. 
For your nearest dealer call: 

(416)273-6350 
PRO-LINE 

^laaMllttOFTWACI E 

755 THE QUEENSWAY tAbf . UNIT 9 
MfSStSSAUGA. ONTARIO L4T 4C5 
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COMMODORE 64' 



Ba Jhe mmm 
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No motTer which direction you wish to Trovel in, experience 
the advantage of computer communications with The 
SMART 64 Terminal. Discover the progrom that puts you 
on the Right Road ro: Public-Access Networks. University 
Systems, Private Company Computers and Finonciol Services. 

Ihe SMART 64 Termlnol designed with Quolity-Dred features. 
Affordable Pricing . . . And Service, 
So why nor trovel the communications highways the SMART way! 

Accessories Includ&d: 



/ 



/ 



□ Seleaive Sroroge of Received 

Dora. 
n Alarm Timer. 

n 40 or 80 Cof. Operation* 
G Auro'Diat. 



□ User-Denned Funaiort Keys. 
5creer} Cotors, Printer ond 
Modem Setting. 

n Screen Print. 



Suggested 

$39. 95 

Reroil 

□ Formaned Lines. 

□ Review, Reorronge, PhnrFiles. 

□ Sends/Receives Programs and 
Files of ANY SIZE. 



n Disk Wedge BuilT-inl 

□ Adjustable transmit/receive tables allow custom requirements. These and other features make Jhe SMART 64 Terminal 
the best choice for grand touring reiecammunicatior^. 

MICROTECHNIC" 



'ComrnodoreMr^i^reredrrodemcirk 
of Commodore Du^ineKMochiriesInc 

■Supports SOcolumn conndge 
tv Doro 20 CoFporo'ion 



Deoler Avoilobiiity 
Coll (203) 369-0363 




■SOLUTIONS* 

P.O. 60X2940, NewHoveo, Ct.06515 



PficesareinUSdollars. 





JOIN THE 

COMPUTER 

REVOLUTION 

WITH A MASTERY 

OF THE KEYBOARD! 

In the age of the computer, everyone 

from the school child to the Chairman of 
the Board should be a! home at the 
computer keyboard. Soon there will be 
a computer terminal on every desk and 
in every home. Learn how to use il right 
.„and have some fun at the same time! 

Rated TH£ BEST educational ptogram for the VIC 20^ 
by Creative Computing Magazine 

TYPING TUTOR PLUS WORD INVADERS 

The proven way to learn touch typing, 

COMMODORE 64 Tape $21.95 COMMODORE 64 Disk $24.95 
VIC20(un6xpanded) TapeS21.95 

Typing Tutor plus Word Invaders mal<es learning the keyboard easy and funf 
Typing Tutor leaches the keyboard in easy steps. Word Invaders makes typing 
practice an entertaining game. Highly praised by customers: 

-Typiryg Tutor is great! '\ "Far}tastic^'. -'Excellent". Higti quality". "Ourchiidren 
(ages 7-1 5} literally wait in line to use it/ \ "Ever) my tittle sister iii<es it". "Word In- 
vaders is sensational! " 
Customer commenl says it all . . . 

".. . it was everyttiing you advertised it would be. In three wee*<s. my 13 year old 
son. who had never typed before, was typing 35 w.p.m. I had improved my typing 
speed 15 w.p.m. ar)d my husband was able to keep up with his college typing 
class by practicing at home. " 





IFR 

(FLIGHT 

SIMULATOR) 

CARTRIDGE 

FOR THE VIC 20 

$39.95 

COMMODORE 64 

TAPE OR DISC 

$29.95 

JOYSTICK REQUIRED 

Pul yourself in Ihe pilot's seati A very challenging 
realistic simulation of instrumenl flying in a light 
plane. Take off, navigate over difficult terrain, and 
land at one of the 4 airports. Artificial horizon, tLS, 
and other working instruments on screen. Full air- 
craft features. Realistic aircraft performance — 
stalis/spins, etc. Transport yourself to a real-time 
adventure in the sky Flight tested by professional 
pilots and judged "terrific"! 




Shipping and handling $1.00 per 
order, CA residents add 6% tax. 



Mt..li iCi.' 



—f 



ACADEmV 

SOFTK//^RE 

P.O. Box9403, San Rafael, CA94gi2(415)49M850 



Programmera: Write to our New Program Manager concerning any exceptional VIC 20TW orCommodore 64TM game or other program you have developed. 



MICROCOMPUTER 

SUPPLIES O 




100% 

Guaranteed 



IDISKETTES FROM 

10/$25.00 

S.S. S.D 



Shop 

Wilhoul 

Going 

Shopping 



MEMOREX DYSAN 

^481 SS/DD S33,C)0per10 104/1 DSS/DD Soft 154.00 per 10 
3491 DS/DD S45.00perl0 104/2D DS/DD Sofl J76,00 per 10 
3461 2 S5/DD 2 Pack Mailer S8.00 plus 75c postage * 

AN oth«r af»B And rormat «vall«bl« and volume discount 



Flip 'N' File, hold 50, BV*" disketlos 

FMp Pac. holds 10 5%" diskettes 

Disk Banks, hold 10 5 V<"dlBkeUea 

Plaallc Library Ceses, choice of colors; 

EPSON RXeo Primer 

EPSON FXBO Primer 

EPSON FX100 

OUADRAM Interlaces 

COMREX CRII Daisy Wheel Printer; 

COMREX Monitors. 6 models 

MX30 Ribbons 

WRITE on CALL FOR FREE CATALOG 

To ord»r; SmnC mor-y o'd*r. ctrtKwtJ ch«]L», p«r»ooal crwqu«t mirtl ctoaf 

our C»nK, VISA of MASTERCARD, (lnclu<>« c*rd f «nd iMptry <J«1» t 

fllgnAiur*) Aoo )% 'or tnippir^g «nd rundllng. Mknimum U.OO p«' oiOmt. 

Ou«b«c raild«riia •<»<) 9% P.6.T. 

INTERNATIONAL MARKETING 



S3fl.50each 

S 7.00 each 

$ 7.00 

S4. 50 each 

S525-00 

SBSO.OO 

SCALL 

SCALL 

SB69.00 

IfomSTOa.OO 

S14.50 



CANADIAN 
SOFTWARE 
SOURCE 

FOR ALL YOUR COMMODORE 64 NEEDS 





P.O. Box 522, Bouchervllle, Quebec. J4B 6Y2 

(514)655-9232 



• GREAT SAVINGS • OVER 400 
PROGRAMS • FAST' FRIENDLY SERVICE 



Canadian $ 



HOME ACCOUNTANT [ConrtnentQl) [DJ 

MASTiR TYPE [Lightning] [D) 

PARALLEL PRINTER INTERFACE [Cavdco] 

KINDEI^COMP (Spinnaker) [Cor] 

TYPING TUDORAVORD INV. EACGdomyJ fTj 

WITNESS [Infocom) [D] 

SPRITEMASTER 64 [Access] (D) 

NELTTRAL ZONE lAccesE) fT/D) 

BLADE OF BLACKPOOLE [SlrlusJ (DJ 

REPTON [arlus] (D) 

KOALA PAD & MCRO ILLUSTRATOR 

DISKS (Control Doto) SSDD (12 rxst lO/box) 

PRINTER PAPER - 30M-9-1/2'x11' -(3300 Shls/box) 

To order or for FREE CATALOGUE write or phone 

CANADIAN 
SOFTWARE SOURCE 



S W.05 

49,96 

139.95 

27,95 

69,96 

62,95 

59.95 

51,95 

51.95 

SPECIAL 

SPECIAL 

SPECIAL 



S 74.95 
44.95 

105 00 
37.95 
22.95 
46.95 
46 95 
44.93 
45.95 
45.95 

125 00 
29 95 
39.95 




Mai**'CanJ 



BOX 340 STATION 'W • TORONTO • ONT. M6M 5B9 • [416] 491-2942 

Ontofio resldenls add 7% sales iar Send cerHfled cheque or money order 
VISA & Master Cord pleoEe include card number, expiry da'e and signoture 
Add S2.50 for shipping and handling. All Items bubjecl lo avoHQbllTlv. 
Prices subject to chonge withoijl notico. 

VISIT US AT THE CANADIAN COMPUTtH SHOW AND 
THE WOAID Of COMIMODOM SHOW IN TORONTO 

"DellvBfV by LI,P.S. within 3 days of order dale it stocked by local suppffers 




Reveal secrets of the mind. 
Use your Commodore 64 system to 
analyze yourseJt. your spouse, your 
date, relatives and friends. Discover 
your personality type, career 
potential, behavior tendencies, 
values, and the people with whom you 
Will be most compatible. This program 
requires the use of a "joystick". 
Price S32.95 Disk ($27.95 Cassette). 



Behavior Modification . 
Use your Coinmodora 64 system to 
change your behavior patterns 
through computer hypnosis. Discover 
how to communjcate with yoursBtt. on 
a conscious and subconsctous level 
Program your own poat-hypnotic 
suggestions. The P5I Biofeedback 
Device is included with this program. 
Price S07.95 Dish {S79.95 Cassette) 



Get this software 
at your local dealer 
or order direct from: 



n: :r: psycom 

I"' '^J SOFTWARE 



KI" 



=»ffl INTERNATIONAL 



2116 Forest Lake Drive 
Cincinnati, Ohio 45244 USA 
Telephone: 513 474-2166 
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Input Syslems Int 
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MKToionipuIer Solutions 
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Miirolethnit: Solutions 
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Ndlekop 
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P.K. Conjiniinifdlioiii 

Precision Soil w Eire 

Pro- Line S^iltwart* 
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VIC20/C64 Software 

Business PEickages 

The TOOL Eproi^ramming aitl) 

Pro Golf 

EducEilional Sol! ware 
C64 Soflwcrt' 

VIC20/C64 Garm-s, Utilities, Edn. 

C64 COMAL 

Calc Result [spreadslieei prog.) 

Word Manager 
MAE Assembler 
40/80 Screen Select 
C64 wordpriH:cssor 
Tyjirii (word processor) 

Laser Strike 

VIC/ 64 /PET soil ware 

Stttck Helper 

C64 Provincial Payroll 

CtylJCH'-A-WORD 

Cfi4 Disk Ulilily 

Cf^4Bi]sines,s Software 

C64 T-i'rm ilia I software 

VlC2tl/Cfi4 Graphics Util 

VIC20/C64 SuperTerm 

VIC 2(1/ C64 Games 

C64: Utility, Business., Games 

C64 Forth 

J Butterfield video ttitor 

Superscript (wordprocessor) 

PAL fi4 (assembler) 

POWtR 64 (programming -lid) 

Mai I Pro 

gen*^ral 

C64 so It wd re 

VIC2IJ/C64 Games, Utililus 

SuperBase 64 (data base) 
V|C20/Ce4 Soltwcire 
Business packages 
VIC/ 64/ PET Software 
Provincial PavrotI 



Micro Application 



Handic Software ab 



Precision Software 



Hardware 
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Apropos Technology 
Computer Workshc^s 

\Compu1eT Mark!'Tin^ 
Conned imt microcomputer 



Eastern House 



Ge<jrge M. Drake & Associates 
GiJsub International 
Micro WEirt' 

Micro World Eleelronix 
Midwest Micro Inc. 
Midwest Per ip herd Is 
Precision Technologs' 
Kicln Eile Telecommuiiicdtioiis 
Zanim Svsft'iiis 
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79 67 VIC20/C64 Printer, Exp lj<>ard 

63 Z-KAM(CP/M board) 

62 79 PET/CBM Interlace adapters 

64 78 €4 Analog/Digital I/O 
68 Trap 65 

68 VIC Rabbit 

Ci8 Eprom Programmer 

m Communications Bil 

BC BC BC Colour Monitors 

75 82 63 Flexikey 

70 T.L|je Interlace 

70 VIC20 RAM Expand 

65 74 77 VIC20/C64 Printer Interface 

69 Smart ASCII Plus 
74 72 62 V[C20Ex|>ander 

61 79 73 VtC20/Cfi4 Expander Boards 

IFC IFC IPC IPC IFC C64Link(IEEEadapter) 

81 70 Homi' (<)ntrol hanlware 



Madison 



Amdek 



Accessories 



■Vlvertiser 



Computer Workshops 

Consultors Int'l 



The Code Works 
Inl't Marketing Services 
Midnight Software Gazetle 
Toronto PET Users Group 
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Manufacturi-r 



Aprft3 products lisE 

Stock Market With Your PC (book) 

A'JoZ Book Of Gaines 

Dynamics Of Money Mgmi (book) 

[iivment. Analysis w/Vour Micro (book) 

CURSOR , C64 Tape Magazine 

Disk, printers, misc, 

^^ubscnlH'r Info 

Membership inio 
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for ° the " commodore ° 64 




challenge the asteroid field, 

maneuver the caves of ice, 

experience the thrill, 

play laser strike. 

Laser strike, written in full machine language for the Commodore 64< 

Commodore 64 is a registered trademark 
of Commodore Business Machines Inc. 



Visa/MC/Check/Money Order accepted 



In U.S. 

Cassette $24.95 

Disk $29.95 

I sis Hathor Digital Productions 

6184 Verdura Ave. 

Goleta,CA93117 

(805) 964-6335 

Add $2.00 postage and handling 

California residents add 6% sales tax 

% Ask about Laser strike posters 

Call Toll Frvfl- T-a(K]-5aS-9803 




l/ISIinTIIOR 

DIGITAL PRODUCTIONS 



In U.K. 
Cassette C 9.00 VAT included 
C19-95 VAT included 
Isis Hathor U.K. 
Andrew Barrow 
Reyden, Perkslane 
Prestwood, Gt. Missenden 
Bucks, England HP160JD 

02406-3224 

You will be billed 

for postage and handling 



^A 



-I . . . 



NEW 2 YEAR WARRANTYt 

Orr all monitO' e'ed'Ofics . . . 3yrs. onaHCPT's 




The popular choice 

for popular computers 

. . . at a popular price. 



The Color-I Monitor is designed to perform superbly 
with your Apple II, Atari or VIC Commodore personal 
computer and others Highly styled cabinet. It accepts 
a composite video signal to produce vivid, richly col- 
ored graphic and sharp text displays. Very reasonably 
priced, the Color-I is a giant step above home TV sets 
and other monitors. 



Just write, or call to receive complete specifications ■ FCC/ULappro\. 

on the Amdek Color-I Monitor. 

2201 Lively Blvd • Elk Grove Village, IL 6Q007 -* 

(312) 364-1 180 TLX: 25-4786 

REGIONAL OFFICES. CaJif. (714) 662-3949 

Amdek. . . your guide to innovative computing! 



Quality 260(H) x 300(V) line resolution. 

Built-in speaker and audio amplifier. 

Front mounted controls for easy adjustment. 

Interface cables available for Atari and 
VIC Commodore computers. 

FCC/ULapproved. 



Texas (81 7) 498-2334 



